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CHAPTER 1 
THE F4 COMPILER 
The OS/8 F4 compiler runs in 8K on either a PDP-8 or a PDP-12. It op- 
erates in three passes to transform FORTRAN IV source programs into 
RALF assembly language. The function of each of the three passes is: 

1. Analyze statements, check syntax and convert to a polish 
notation. 

2. Convert output of PASS1 to RALF assembly language making ex- 
tensive use of code skeleton tables. 

3. Produce a listing of the FORTRAN source program and/or chain 
to the assembler. 

The following is a more complete description of each of the three 
passes. 

PASS1 OPERATION 

After opening the source language input file(s) and an intermediate 

output file, PASS1 processes statements in the following fashion: 

1. Assemble a statement into the statement buffer by reading 
characters from the OS/8 input file. This section eliminates 
comments and handles continuations so that the statement 
buffer contains the entire statement as if it had been written 
on one long line. 

2. The statement is first assumed to be an arithmetic assignment 
and an attempt is made to compile it as such. This is done 
with a special switch (NOCODE) set so that in the event the 
statement is not arithmetic, no erroneous output is produced. 
Thus, with this switch set, the expression analyzer subroutine 
is used merely as a syntax checker. 

3. If the statement is indeed an arithmetic assignment statement 
(or arithmetic statement function) the switch is set off and 
the statement is then recompiled, this time producing output. 
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4. If not an arithmetic assignment, the statement might be one 
of the keyword defined statements. The compiler now checks 
the first symbol on the line to see of it is a legal keyword 
(REAL, GOTO, etc.) and jumps to the appropriate subroutine if 
so. Any statement that is not now classified is considered to 
be in error. 

5. The compilation of each statement takes place. Some state- 
ments produce only symbol table entries (e.g., DIMENSION) 
which will be processed by PASS2. Others use the arithmetic 
expression analyzer (EXPR) and also output special purpose 
operators which will tell PASS2 what to do with the value 
represented by the arithmetic expression (e.g., IF, DO). 

6. After the statement has been processed, control passes to the 
end-of-statement routine which handles DO-loop terminations 
and then outputs the end-of-statement code. 

7. Statements containing some kind of error cause a special 
error code to be output. 

8. The entire process is now repeated for the next statement. 

9. When the END statement is encountered, PASS1 chains to PASS2. 

PASS1 SYMBOL TABLE 

A significant portion of the PASS1 processing involves the production 
of symbol table entries. These entries contain all storage related 
information, i.e., variable name, type, dimensions, etc. 

The symbol table is organized as a set of linked lists. The first 26 
such lists are for variables, with the first letter of the variable 
name corresponding to the ordinal number of the list. There are also 
separate lists for statement numbers and literals (integer, real, 
complex, double, and Hollerith). In addition to list elements, there 
are special entries for holding DIMENSION and EQUIVALENCE information. 
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A detailed description of each type of entry follows. (NOTE: All 

symbol table entries are in Field 1.) 

1. VARIABLE - The first word of each entry is a pointer to the 
next entry, with a zero pointer signaling end of list. The 
second word contains type information. The third word points 
to the dimension and/or equivalence information blocks. The 
next one to three words contain the remainder of the name 
(the first character is implied by which list the entry is in) 
in stripped six-bit ASCII terminated by a zero character. 
Thus, shorter variables take less symbol table space. The 
entries are (as for all lists in the symbol table) arranged 
in order of increasing magnitude, or alphabetically. 



POINTER 


► 


TYPE 












DIMENSION/EQUIVALENCE 


► 


NAME 2-3 


N 


A 


NAME 4-5 


M 


E 


NAME 6 


X 






TYPE WORD FORMAT 

12 3 



BIT 


1 
2 
3 
4 
5 
6 
7 



10 



11 



M 


D *„ 


E x 

X T 


A s 

b F 


V 


E 
XP L 


L 
I 
T 


A R 
R G 


T 


Y 


P 


E 



Variable is in common. 

Variable is dimensioned. 

External symbol or subroutine/function name. 

Symbol is the name of an arithmetic statement function. 

Variable is an equivalence slave. 

Variable is explicitly typed. 

Entry is a literal. 

Variable is a formal parameter. 
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8-11 
Type 



1 integer 

2 real 

3 complex 

4 double 

5 logical 

8 statement number 

9 common section name 



STATEMENT NUMBER - The first two words are the standard 
pointer/type. The next three words are the statement number, 
with leading zeros deleted, in stripped six-bit ASCII, filled 
to the right with blanks . 



POINTER 
TYPE 

NUMBER 1-2 
NUMBER 3-4 
NUMBER 5 



— -*► 




N 


U 


M 


B 


R 


X 



3. INTEGER OR REAL LITERALS - The first two words are the pointer 
and type. The next three words are the value in standard 
floating-point format (12-bit exponent, 24-bit signed 2's 
complement mantissa) . Since the type of the literal must be 
preserved, there are two lists; hence use of 1 and 1.0 in the 
same program will cause one entry in each of the integer and 
real literal lists. 



POINTER 
TYPE 

EXPONENT 
MANTISSA 0-11 
MANTISSA 12-23 



























V 


A ] 


L r 


llL. 




E 





4. COMPLEX LITERALS - The first two words are standard. The 
next three are the real part in standard floating-point 
format. The next three are the imaginary part. 
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R 




E 






L 


r , 


^ 




A G. 


C M 




N A 


*Y 



POINTER 

TYPE 

REAL EXPONENT 

REAL MANTISSA 0-11 

REAL MANTISSA 12-23 

IMAGINARY EXPONENT 

IMAGINARY MANTISSA 0-11 

IMAGINARY MANTISSA 12-23 



DOUBLE PRECISION LITERALS - The first two words are standard. 
The next six are the literal in FPP extended format (72-bit 
exponent, 60-bit mantissa). 



POINTER 
TYPE 

EXPONENT 
MANTISSA 0-11 
MANTISSA 12-23 
MANTISSA 24-35 
MANTISSA 36-47 
MANTISSA 4 8-59 



6. HOLLERITH (quoted) LITERALS - The first two words are stan- 
dard. The next N words are the characters of the literal in 
stripped six-bit ASCII, ending in a zero character. 



POINTER 
TYPE 

CHARACTERS 1-2 
etc. 



DIMENSION INFORMATION BLOCK - If a variable is DIMENSIONed, 
the third word of its symbol table entry will point to its 
dimension information block (may be indirectly, see section 
8 below) . The first word of this block is the number of 
dimensions. The second word is the total size of the array 
in elements; thus the size in PDP-8 words may be 3 or 6 times 
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this number. The third word contains the "magic number" 

which is computed as follows: 

n-1 i 
MN= - 1+ Z d. 

i=l j=l D 

where d . is the j dimension and n is the number of 
dimensions. 
For a 3-dimensional variable this number becomes: 
MN+ l+d 1 +d 1 d 2 



The magic number must be subtracted from any computed index, 
since indexing starts at one and not zero. The fourth word 
will (in PASS2) contain the displacement from #LIT of a 
literal which will contain either the magic number in 
un-normalized form (for dimensioned variables which are 
subroutine arguments) or the address of the variable minus 
the magic number (for local or COMMON dimensioned variables) . 
This literal is necessary for calling subroutines where a 
subscripted variable is an argument. The next N words are 
the dimensions of the variable. If the variable is a formal 
parameter of the subroutine, it may have one or more dimen- 
sions which are also formal parameters. In this case, the 
magic number is zero, and the dimension (s) is a pointer to 
the symbol table entry for the variable (s) used as a dimen- 
sion. 

NUMBER OF DIMENSIONS 
TOTAL NUMBER OF ELEMENTS 
MAGIC NUMBER 
RESERVED 
DIMENSION 1 

DIMENSION 2 



# 


SIZE 


MN 




D l 


D 2 



DIMENSION n 



1-6 



EQUIVALENCE INFORMATION BLOCK - If a variable is an 
EQUIVALENCE slave variable, the third word of its symbol 
table entry points to the equivalence information block. 
The first word of this block points to the dimension infor- 
mation (if any) of the variable. The second word points to 
the symbol table entry of the EQUIVALENCE master variable. 
The third word is the linearized subscript of the master 
variable from the EQUIVALENCE statement. The fourth word is 
the linearized subscript of the slave variable. 



POINTER TO DIMENSIONS 
POINTER TO MASTER 
MASTER SUBSCRIPT 
SLAVE SUBSCRIPT 



SSM 



SSM 



COMMON INFORMATION BLOCK - If a symbol is defined as the name 
of a COMMON section, the third word of its symbol table entry 
points to a list of common information blocks. The first 
word of each such block points to the next block. The second 
word is the number of entries in the list that follows. The 
rest of the block is a set of pointers to the symbol table 
entries of the variables in the COMMON section. 



POINTER TO NEXT CIB 
NUMBER OF ENTRIES 

POINTER TO VARIABLES/ 
IN THIS COMMON i. 



PASS1 OUTPUT 

The output of PASS1 is a stream of polish with many special operators, 
Whenever an operand is to be output, the address of its symbol table 
entry is used. The following is a list of the output codes (in their 
mnemonic form, obtain numeric values from listing of PASS1) and the 
operation they are conveying to PASS2: 
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PUSH 
ADD 

SUB 
MUL 
DIV 
EXP 
NOT 
NEG 
GE 

GT 

LE 

LT 

AND 

OR 

EQ 

NE 

XOR 

EQV 

PAUSOP 

DPUSH 

BINRD1 
FMTRD1 



The next word in the output file is an operand 
(symbol table pointer) to be put onto the stack. 

Add the operands represented by the top two stack 
entries (actually this causes PASS2 to generate 
the RALF coding which will do the desired add) . 

Subtract top from next-to-top. 

Multiply top two. 

Divide top into next-to-top. 

Raise next- to-top to power of top. 

Logical .NOT. of top of stack. 

Negate top of stack. 

Compare top two for greater than or equal to, this 
has TRUE value if the next-to-top is .GE. the top. 

Compare for greater than. 

Compare for less than or equal. 

Compare for less than. 

Logical AND of top two entries. 

Logical inclusive OR of top two. 

Compare top two for equality. 

Compare top two for inequality. 

Exclusive OR of top two. 

EQUIVALENCE of top two. 

Use top of stack as PAUSE number. 

The next two words are a symbol table pointer and 
a displacement; put them onto the stack (used for 
DATA statements) . 

Take the top of stack as the unit number and com- 
pile an unformatted READ-open. 

The top two stack elements are the unit and format, 
take them and compile a formatted READ-open. 
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RCLOSE 
DARD1 

BINWR1 
FMTWRI 
WCLOSE 
DAWR1 

DEFFIL 

ASFDEF 
ARGSOP 



EOLCOD 
ERRCOD 

RETOPR 
RE WOP R 

STOROP 

ENDOPR 

DEFLBL 

DOFINI 

ART H IF 



LIFBGN 



Compile a READ-close. 

Take the top two stack elements as a unit number 
and a block number and compile a direct access 
unformatted READ-open. 



Same as for the corresponding READ case, except 
substitute the word "WRITE". 



Take the top four stack entries as the unit, 
number of records, record size, and index 
variable and compile a DEFINE FILE call. 

Set the PASS2 switch which says that the following 
statement is an arithmetic statement function. 

The next word is a count, call it n; take the 
previous n stack entries as subscripts (or 
arguments) and the N+l entry from the top as 
the array (or function) name; now compile this 
as an array reference (or function/subroutine call) 

The current statement is completed, reset stacks 
and do other housekeeping. 

The following word contains an error code, write 
it on the TTY together with the current line 
number, and put the error code and line number 
into the error list for possible PASS3. 

Compile a subroutine RETURN. 

Take the top of stack as a unit and compile a 
rewind. 

Compile a store of the top of stack into the 
next-to-top. 

Compile a RETURN if a function or subroutine or 
a CALL EXIT if a main program. 

The following word is a symbol table pointer to 
a statement number, compile this as the tag for 
the current RALF line. 

The following word is a symbol table pointer for 
the DO-loop index, compile the corresponding 
DO-ending code. 

The following one, two, or three words are symbol 
table pointers to statement numbers for the less 
than zero, zero, and greater than zero conditions 
with the comparison to be made on the top of 
stack. 

The top of stack is taken as a logical expression 
PASS 2 should compile a jump-around-on-false; this 
implies that some statement is to follow. 
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DOBEGN 

ENDFOP 
STOPOP 
ASNOPR 

BAKOPR 
FMTOPR 
G020PR 
CG020P 



AG020P 
IOLMNT 

DATELM 

DREPTC 

ENDELM 
PRGSTK 
DOSTOR 



The top two stack entries represent the final 
value and increment of the DO-loop, process them 
in hopes pf finding a matching DOFINI. 

The top of stack is a unit, compile an END FILE. 

Compile a CALL EXIT. 

The next word is the address of the symbol table 
entry for a statement number; compile an ASSIGN 
of this statement number to the variable represented 
by the top of stack. 

Take the top of stack as the unit and compile 
a BACKSPACE. 

The following word is a count N; the next N words 
after that are the image of the FORMAT statement. 

The following word is the symbol table entry for 
the statement number which is to be executed next. 

The following word is a count N; the next N words 
are symbol table pointers for the statement 
numbers of a computed GO TO list; use the value 
represented by the top of stack to compile a 
computed GO TO into this list. 

Compile an assigned GO TO with the top of stack. 

Take the top of stack as a list element for an 
I/O statement and compile read or write; PASS2 
knows if it is a READ or WRITE by remembering 
previous FMTRDl, FMTWR1, etc. 

The next word is a count N; the next N words are 
a data element. 

The next word is a repetition count for the set 
of DATELMs up until the next ENDELM. 

Signals the end of a data element group. 

Tells PASS2 to purge the top stack entry. 

Performs the same function as STOROP after 
checking the top two stack elements for legal 
DO-parameter type (integer or real) . 



PASS 1 SUBROUTINES 

The following is a brief description of the function of each of the 

major PASS1 subroutines: 

RDWR Compiles everything in a READ or WRITE statement 

starting at the first left parenthesis. 
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RESTCP 
OUTWRD 
COMARP 

BACK1 
GETSS 

MUL12 

DOSTUF 

TYPLST 

LOOKUP 
LUKUP2 

EXPR 
LETTER 

CHECKC 

GETCWB 

SAVECP 

GETC 

ERMSG 

POP 

PUSH 

LEXPR 

GET2C 



Restore character pointer and count for the 
statement buffer from the stack. 

Output a word (the AC on entering) to the PASS1 
output file. 

Test for comma or right parenthesis; skip one 
instruction if a comma, two if a right parenthesis, 
and none if neither. 

Backup the statement buffer character pointer. 

Scans a variable reference, or subscripted variable 
reference with numeric subscripts and returns the 
linearized subscript. 

Perform a 12-bit unsigned integer multiply. 

Handles compilation of DO-loop setup. 

Process a type declaration, DIMENSION, or 
COMMON statement? sets up type bits and/or 
dimension information. 

Perform a symbol table search for variables and 
Hollerith literals. 

Perform a symbol table search for integer, real, 
complex, and double precision literals or 
statement numbers. 

Analyze and process an arithmetic expression. 

Get next character from the statement buffer and 
skip if it is a letter, otherwise put the 
character back and don't skip. 

The first word after the JMS is the negative of 
the ASCII character to test for; if this is the 
next character, skip. 

Get the next character from the statement buffer 
preserving blanks. 

Save the character pointer and count on the 
stack. 

Get the next character ignoring blanks. 

Output an error code to PASS1 output file. 

Pop the stack into the AC. 

Push the AC onto the stack. 

Analyze and process an arithmetic expression, 
legal to the left of the equal sign in an 
assignment statement. 

Get the next two character into one word . 



1-11 



STMNUM Scan off a statement number and do the symbol 

table search. 

DIGIT Same as letter, except checks for a digit. 

NUMBER Scans off an integer, real, or double precision 

literal. 

GETNAM Scan off a variable name. 

ICHAR Get the next character from the input file. 



PASS2 OPERATION 

The first part of PASS2 generates the storage for variables, arguments, 

arrays, literals and temporaries by processing the symbol table 

built by PASS1, which is kept in core. The next step is to generate 

the code for subroutine entry and exit including argument pickup and 

restore. After all such prolog code is generated, PASS20 is loaded 

into core, overlaying most of the prolog-generating functions. The 

main loop of the compiler is now entered. This consists simply of 

reading a PASS1 output code from the intermediate file and using this 

number as an index into a jump table. The sections of code entered 

in this way then perform the correct generation of RALF code. 

Example : 

The statement: A=B+C*D 

would produce the following PASS1 output: 
(assuming A,B,C,D are REAL) 



1) 


PUSH 




->A 


2) 


PUSH 




•>B 


3) 


PUSH 




■>c 


4) 


PUSH 




-+D 


5) 


MUL 


6) 


ADD 


7) 


STOROP 


8) 


EOLCOD 



(symbol table address of A) 
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The corresponding operations performed by PASS2 are: 

1) Make a 3-word entry on the stack corresponding to the 
variable A consisting of a pointer to the symbol table 
entry, a word containing the type, and one reserved word. 

2) Repeat above for B. 

3) Repeat above for C. 

4) Repeat above for D. 

5) The multiply operator is handled like any of the binary 
operators by the subroutine CODE. This routine is called 
with the address of the multiply skeleton table. The 
top two stack entries are taken as the operands, with 
their types used to index into the skeleton tables. 

(See description of binary operator skeleton tables below.) 
The correct skeleton for this combination is chosen based on 
the where-abouts of each of the operands (AC or memory) 
at the corresponding point in the code which is being 
compiled. There are three possible cases: Memory, AC; 
Memory, Memory; AC, Memory. In this example, both operands 
are in memory so the code generated would be: 

FLDA C 

FMUL D 

The CODE subroutine then makes a new stack entry to replace 
the entries for C and D. This entry has a in place of 
the symbol table pointer, signifying that the operand is in 
the AC. Other special case operand codes are: 

- AC ( Already mentioned) 

1-51 Temporaries 

52 - 60 Array reference, the subscript of which is in 
an index register (1-7) . 

61 - A variable, the address of which is in base 

location 0. 

62 - A variable, the address of which is in base 

location 3 . 

63-6777 - Symbol table entry (can be variable or literal) 
7000 - Special temporary 

6) The add operator is handled in the same way as for multiply, 
except that in this case the add skeleton table is used. 
When the correct row is found, the memory, AC case is chosen 
since the result of C*D is now in the AC. This skeleton 
simply generates: 

FADD B 

The new top of stack entry is a 0, since the result is in 
the AC. 

7) The store operation works in a similar manner using a special 
skeleton table to determine whether the value to be stored is 
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already in the AC and whether it must be converted from one 
type to another. In this case, no conversion need be performed 
and the code generated is: 

FSTA A 

8) The end of statement has been reached and any necessary 
bookkeeping is performed. 



PASS 2 SYMBOL TABLE 

PASS2 modifies the symbol table entries corresponding to variables 
by replacing the first word of the entry with the first character of 
the name, this character being derived from the list in which the name 
is located. 

PASS2 ERROR LIST 

PASS2 creates a list (in field 1) of error codes and line numbers 
corresponding to the errors printed on the Teletype during PASS2. 
This list works downward starting just below the skeleton table area, 
working towards the symbol table area. PASS3 uses this list to 
write out extended error messages on the listing. 

PASS2 SKELETON TABLES 

All binary operators have associated with them a skeleton table 
having 24 entries arranged in 8 rows and 3 columns. The rows 
correspond to the following eight possibilities: 

1) Both operands integer or real. 

2) Both operands complex. 

3) Both operands double precision. 

4) First operand integer or real, second complex. 

5) First operand integer or real, second double precision. 

6) First operand complex, second integer or real. 

7) First operand double precision, second integer or real. 

8) Both operands logical. 
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The columns correspond to the following three possibilities: 

1) First operand in memory, second in AC. 

2) Both operands in memory. 

3) First operand in the AC, second in memory. 

Each entry of the skeleton tables is either zero (illegal operator- 
type combination) or points to a code skeleton (minus one) . Code 
skeletons are composed of combinations of the following types of 
elements: 

1) OPCODES - If an element has a non-negative value, it is 
taken as the address of a text string for the desired 
opcode. This works since all such text strings are 
stored below location 4000 (in field 0) . In this case, 
the next word of the skeleton is taken as a designator 
for the address field, the possibilities are: 

a. A non-negative values means the address field is a 
literal text string, with the value being the ad- 
dress of the string. (Same restriction as for op- 
code text strings.) 

b. A zero indicates that this instruction should have 
no address field. 

c. A minus one indicates that the address field is the 
operand defined by the three variables ARG1, TYPEl, 
and BASEL 

d. A minus two indicates that the address field is the 
operand defined by the three variables ARG2, TYPE2, 
and BASE 2. 

2) MODE CHANGE - An element value of minus one means generate 
a STARTF if currently in extended mode. A value of 
minus two means generate a STARTE if currently in single 
mode . 

3) MACRO - Any other negative value is taken as the address 

(minus 3) of a sub-skeleton. This sub-skeleton may 
contain anything except another sub-skeleton reference. 
When the end of the sub-skeleton is encountered,, the main 
skeleton is re-entered. 

4) END-OF-SKELETON - A zero indicates the end of the skeleton. 



PASS2 SUBROUTINES 

The following is a list of the major PASS 2 subroutines together 

with a brief functional description. 
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ERMSG 

UCODE 

CODE 

INWORD 

FATAL 

ONUMBER 

SAVEAC 

GENCOD 

OPCOD 

OPCODE 

OADDR 

GENSTF 

GENSTE 

OSNUM 

CRLP 

OTAB 

OUTSYM 

GARG 

GARGS 

OUTNAM 
OLABEL 
GETSS 

SKPIRL 

GENCAL 

MUL12 



Output a 2-character error code together with the 
line number on the Teletype; also put the code and 
line number into the error list for PASS3. 

Generate the code for unary operators, given the 
skeleton table address. 

Generate code for binary operators, given the 
skeleton table address. 

Read a word from the PASS1 output file. 

Output a fatal error message and exit to OS/8 . 

Output the AC as a 4-digit octal number. 

Generate an FSTA #TMP+XXXX if necessary. 

Generate the code specified by the given code 
skeleton. 

Output a TAB followed by the specified opcode 
field. 

Same as OPCOD, except output a second TAB after the 
opcode field. 

Generate the address field specified by the 
argument . 

Generate STARTF if in E mode. 

Generate STARTE if in F mode. 

Output a statement number preceded by a "#" . 

Output a carriage return/line feed. 

Output a TAB. 

Output a text string. 

Pop the top entry of the stack into ARG1, TYPEl, 
and BASEL 

Pop the top two stack entries into ARG1, TYPEl, 
BASE1 and ARG2, TYPE 2, BASE 2. 

Output a variable name. 

Output a generated label. 

Find the address of the dimension information 
block given the symbol table address. 

Skip if integer, real, or logical. 

Generate the code for a subroutine call from 
the information contained on the stack. 

Do a 12-bit unsigned multiply. 
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OINS Output a literal opcode and address field. 

OCHAR Output a character 

NUMBRO Output a 5-digit octal number. 

PASS 3 OPERATION 

PASS3 first initializes the listing header line with the version 
number, date, and page number. It then processes lines, much like 
PASS1, handling continuations and comments and outputs their image 
to the listing file together with the line number. A constant check 
is made on the error message list for line numbers that correspond 
to the current line number, When such a correspondence occurs, the 
error code is used to find the associated detailed error message, 
which is then printed out. 
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CHAPTER 2 



THE RALF ASSEMBLER 



RALF and FLAP are essentially the same program, with differences con- 
trolled by the conditional assembly parameter RALF, which must be non- 
zero to assemble RALF, or zero to assemble FLAP. The source may be 
assembled by either PAL8 or FLAP; although FLAP flags one error (a US 
on a FIELD statement) , this may safely be ignored. The remainder of 
this chapter applies to RALF only. The following definitions are pre- 
requisite to discussion of the operation of this assembler. 



MODULE 



LIBRARY 



CATALOG 



EXTERNAL 

SYMBOL 

DICTIONARY 



The relocatable binary output of an assembly. A module 
is physically an OS/8 file or sub-file in a library, 
and is made up of an external symbol dictionary and 
related text. Logically, it consists of one or more 
program sections and COMMON sections. 

An OS/8 file on a directory device containing a catalog 
and one or more modules as sub-files. Used solely by 
the loader, as a source of modules with which to satisfy 
unresolved symbols in a program being loaded. 

A list of entry points defined in modules contained in 
a library, with an indication of the locations of the 
modules which define them. 

A list of the global symbols defined in and/or used by 
a module. Usually called ESD table. 



TEXT 



SECTION 



ENTRY POINT 



That part of the assembler's binary output which contains 
the binary data to be loaded into memory, along with 
sufficient information for the loader to associate the 
output with specific memory locations through references 
to the ESD table. 

A unit of binary data output by the assembler as part 
of a module to be loaded into a contiguous area of 
memory. COMMON sections are a special case in that 
they may be defined with the same name in each of many 
modules. In this case, all the definitions are combined 
to create a single section in memory whose size is that 
of the largest COMMON section with the given name. 
Program sections, the only other type of section, must 
have unique names. Sections are listed in the ESD table 
by name, type and size. 

An address within a section which is named and defined 
to be global, so that it may be used for the resolution 
of external references in other sections. Entry points 
are listed in the ESD table by name, type and address 
within the section in which they occur. 
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EXTERNAL A symbol which is specified at assembly time to be 
SYMBOL defined in another module as an entry point. External 
symbols are listed in the ESD table by name and type. 
A complete program must include entry point names 
equivalent to every external symbol defined in every 
module in the program. There need not, however, be an 
external symbol for every entry point, nor is there any 
limit on the number of modules which may contain external 
symbols referencing one entry point. From a functional 
viewpoint, entry points correspond to tags within a 
program and external symbols correspond to references 
to those tags. Every section is considered to have an 
entry point at location zero of the section. The name 
of this entry point is the section name. 

When RALF is called from the monitor, execution begins at the tag 

BEGIN. Unless entry is via CHAIN, the OS/8 command decoder is called 

to obtain input and output file designations. If entry is by way of 

CHAIN, it is assumed that the command decoder area has already been 

set up by the caller. In either case, it is always assumed that the 

USR is already in core. A check is made to determine that the first 

output file is a directory device file and, if no first output file 

was specified, the default file SYS:FORTRN.RL is set up. 



Default output file extensions are defined if none were specified to 
the command decoder, using .RL for the first output file and .LS for 
the second output file. The first output file is then opened, and the 
handler for the first input file is FETCHed. If /L or /G was specified, 
the loader is looked up on SYS so that chaining will be possible. The 
symbol table, which is loader above 12000 in order to preserve the 
USR, is now moved down to 10000. Finally, the system date word is 
converted to character form and stored in the title buffer. This 
completes the initialization procedure, and control is passed to 
NEWLIN to collect the first line in the buffer. 

At NEXTST, tests are made to determine whether the line just assembled 
needs to be listed, and whether there are any remaining significant 
characters in the line which have not been assembled. If a semicolon 
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terminated the statement, the character pointers are bumped to skip 
over it, and control passes to ASMBL to process the next statement on 
the line. If the assembler is currently in a REPEAT line and the 
count is not exhausted, the current line is re-assembled. Otherwise, 
a new line is obtained in the line buffer by collecting input characters 
until a carriage return is found. If the line is longer than 128 
characters, all characters after the 128th are ignored and the LT 
message is printed. The line length is calculated and saved. 

At ASMBL, ASMOF is tested to determine whether the assembly is currently 
inside a conditional. If so, the line is scanned for angle brackets 
but not assembled. If not, and the first character is not a slash, 
leading blanks are thrown away and control passes to LUNAME. If there 
is a name, it is collected. If it is followed by a comma, the symbol 
is looked up in the user symbol table. If the symbol is undefined, it 
is defined as a label. If it was already defined, the current location 
counter is compared with it to check for a possible MD error. Control 
then returns to ASMBL. 

If the symbol found by LUNAME was followed by an equal sign, it is 
looked up and defined according to the expression to the right of the 
equal sign. If it was followed by a space, either of the characters 
' or #, or the character % and then a space, it is looked up in the 
op-code table. If it is found, control passes to the appropriate 
op-code handler. Otherwise, control is dispatched to GETEXP which 
restores the character pointers saved by LUNAME, processes the rest 
of the line as a single-word expression, and returns to NEXTST for the 
next statement. 
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Expressions are processed on a strict left-to-right basis by the 
routine EXPR. A symbol is looked up, and its value is stored in 
W0RD1 and W0RD2. It is then combined with the accumulated expressions 
in EXPVAL according to the operator in LASTOP. A new operator (if any) 
is then located, and the loop begins again. When no operator is found 
after some symbol, the expression is considered complete and control 
returns to the calling routine. Undefined symbols appearing in an 
expression cause output of a US message, and the value zero is used 
in their place. COMMON and section names in the symbol table have 
special values (namely their lengths) , but they always refer to the 
starting location of the sections they define, and their values are 
taken to be zero of the section so named. If GETNAM is not able to 
find a symbol in the expression, three possibilities are checked before 
flagging the expression as invalid: 

1. It may be a number, rather than a symbol. 

2. It may be one of the characters period (representing the 
current value of the location counter) or double quote 
(representing the binary value of the next ASCII character) . 

3. The last operator may have been a plus sign in an indexed 
FPP instruction. 

At the end of expression evaluation, the console keyboard flag is 
checked to ensure that the user has not typed CTRL/C to stop the 
assembly. 

There are six expression operator routines, one each for the operations 
add, subtract, AND, OR, multiply and divide. Except for add and 
subtract, these routines must operate on absolute addresses because 
the loader does not have facilities for non-additive resolution of 
address constants. 



2-4 



The symbol table is the sole occupant of field 1, except for the OS/8 
field 1 resident. The symbol table is loaded at location 12000 to 
prevent an unnecessary swap of the USR, but moved down, to start at 
location 10000, during initialization. Subsequent calls to the USR 
do require a swap. The symbol table is a set of linked lists, or, 
more properly, two sets; one for user-defined symbols and one for 
op-codes and pseudo-ops. Each set contains a list corresponding to 
every letter of the alphabet, and each list consists of the symbols 
which start with that same letter. Every time a symbol is encountered 
in the source, the list corresponding to its first letter is searched 
until a match is found, or until the end of the list or a symbol of 
higher alphabetical order is found. In the latter cases, the new 
symbol is inserted into the user symbol table by changing the list 
pointers so that the new symbol appears in the list in correct alpha- 
betical order. The pre-defined symbol table is never changed, because 
the user is not permitted to define op-codes or pseudo-ops. 

A RALF output file of relocatable binary data consists of two parts; 
the ESD table and the text. The ESD table contains all information 
required by LIBRA or the loader, and is generated between the first 
and second passes of assembly. It serves as a partial symbol table 
for the loader (the full symbol table is built up from the ESD tables 
of all the modules in a program) and provides the name, attributes, 
and value of every global symbol used by any module, as well as an 
ESD code by which the symbol may be referred to within the text. 
Every entry in the ESD table is six words long. The first three words 
are the symbol itself, packed in stripped ASCII, with two characters 
per word. The next word contains type information in the following 
format: 
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A VALUE OF INDICATES 

Last entry in the ESD table. 

1 The symbol is defined as external to this module. 
The value of the symbol must be resolved by a 
symbol of the same name appearing in the ESD 
table of another module. The ESD code which 
follows the type code is the code by which 
references to this symbol will be identified 

in the text. 

2 The symbol is defined as an entry point in this 
module. It is therefore suitable for the 
resolution of external references in other 
modules. The ESD code which follows the type 
word identifies the program section in which 
this entry point appears, and the value of 

the symbol is relative to that section. 

3 The symbol is defined as a COMMON section whose 
size is at least as large as specified by the 
value of the symbol. If several modules contain 
ESD entries referring to COMMON sections with 
the same name, a single COMMON block having the 
size of the largest symbol is allocated for all 
of them. A name consisting of blanks is treated 
in the same manner as any other name. 

4 The symbol is defined as a section of location 
independent (that is, fully word-relocatable) 
code of a size equal to the value of the symbol. 
The ESD code for this section allows text from 
the module to be included in this section, and 
relocated with respect to it. 

5-17 Undefined 



The text portion of a relocatable binary file consists of the binary 
data to be loaded into memory, along with information directing the 
loader on how to modify that data to correct the addresses for program 
relocation. The first word of text is a control word, which is made 
up of a 4-bit type code and an 8-bit indicator. Following the control 
word, and depending on the type code, are a number of data words to 
be loaded as directed by the type code and the indicator. The control 
word type codes are: 

CODE FUNCTION 

End of text, if the indicator is zero, or no 

operation otherwise. 
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Copy the number of words given by the indicator 
from text directly into memory without modifica- 
tion. 

Re-origin to the section identified by the 
indicator, with a relative location defined by 
bits 9-23 of the following doubleword. Thus, 
the next two words define a new origin for the 
following text, in the program section identified 
by the indicator. 

Relocate the following doubleword bits 9-23 by 
the value of the symbol whose ESD code is 
identified by the indicator. The following 
doubleword is usually a two-word FPP instruction, 
the low-order 15 bits of which are to be relocated 
by the value of the symbol identified by the 
indicator. 



WRITING PDP-8 CODE UNDER OS/8 FORTRAN IV 

RALF contains the normal set of PDP-8 instructions (TAD, DCA, CDF, KSF, 

etc.), however RALF does not allow literals, the PAGE pseudo-op, or 

the use of I to specify indirect addressing. PDP-8 code generated by 

RALF is not relocatable; therefore, operations such as the following 

are illegal: 

EXTERN SWAP /Illegal 
TAD (SWAP /Under 
CDF SWAP /RALF 

The character % appended to the end of a memory reference instruction 

indicates indirect addressing, and the character Z indicates a page 

reference: 

CURRENT PAGE PAGE ZERO 

DIRECT INDIRECT DIRECT INDIRECT 

TAD A TAD% A TADZ A TADZ% A 

DCA B DCA% B DCAZ B DCAZ% B 

Spaces are not allowed between memory reference instructions and either 

the Z or the % characters. The Z must precede the % when both are used. 

I.e., do not write "DCA%Z". 

Three pseudo-ops have been added to RALF: SECT8 , COMMZ, and FIELD1. 
All three define sections of code and are handled in the same manner 
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as SECT; however, these new sections have special meaning for the 
loader. The address pseudo-op (ADDR) which generates a two word re- 
locatable 15 bit address (i.e., JA TAG without use of JA) might prove 
useful in 8-mode routines. The following example demonstrates a way 
in which an 8-mode routine in one RALF module calls an 8-mode routine 
in another module: 
EXTERN SUB 



KSUB, 



ACDF, 
AC IF, 



RIF 

TAD ACDF 

DCA .+1 



TAD KSUB 

RTL CLL 

RAL 

TAD AC IF 

DCA .+1 



JMS% KSUB+1 

ADDR SUB 



CDF 

CIF 



/Set DF to current 
/IF for return 

/CDF X 

/Make a CIF from 

/Field bits 



/CIF to field 
/Containing SUB 



/Psuedo-op to 
/Generate 15 bit 
/ADDR of subroutine 
/SUB 



In general the address pseudo-op can be used to supply an 8-mode 
section with an argument or pointer external to the section. 

FPP and 8-mode code may be intermixed in any RALF section. PDP-8 mode 

routines must be called in FPP mode by either: 

TRAP 3 SUB 

or TRAP 4 SUB 

A TRAP3 SUB causes FRTS to generate a JMP SUB with interrupts on and 

the FPP hardware (if any) halted. TRAP 4 generates a JMS SUB under the 

same conditions. The return from TRAP4 is: 

CDF CIF 
JMP% SUB 

The return from TRAP 3 is: 

CDF CIF 
JMP% RETURN+1 
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EXTERN #RETRN 
RETURN, ADDR #RETRN 



Communication between PPP and 8-mode routines is best done at the FPP 
level because of greater flexibility in both addressing and relocation 
in FPP mode. The following routine demonstrates how to pass an argu- 
ment to, and retrieve an argument from, an 8-mode routine: 

EXTERN SUB 
EXTERN SUBIN 
EXTERN SUBOUT 

FLDA X /Arg for SUB 

FSTA SUBIN 

TRAP4 SUB /Call SUB 

FLDA SUBOUT /Get result 

FSTA Y 

If the 8-mode routine SUB were in the same module as the FPP routine, 

the externs would not be necessary. In practice it is common for FPP 

and 8-mode routines that communicate with one another to be in the 

same section. A number of techniques can be used to pass arguments. 

For example, an FPP routine could move the index registers to an 

8-mode section and pass single precision arguments via ATX. 

Because 8-mode routines are commonly used in conjunction with FPP code 

(generated by the compiler) , the 8-mode programmer should be familiar 

with OS/8 FORTRAN IV subroutine calling conventions. The general code 

for a subroutine call is a JSR, followed by a JA around a list of 

arguments, followed by a list of pointers to the arguments. The FPP 

code for the statement: 

CALL SUB (X,Y,Z) 

would be 

EXTERN SUB 
JSR SUB 
JA BYARG 
JA X 
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ja y 

JA Z 
BYARG , 



The general format of every subroutine obeys the following scheme: 

SECT SUB 

JA #ST /Jump to start of 

/Routine 
TEXT +SUB+ /Needed for 
/Trace back 
RTN, SETX XSUB /Reset SUB's index 

SETB BSUB /And base page 
BSUB, FNOP /Start of base page 

JA 

ORG BSUB+30 /Restart for SUB 
FNOP:JA RTN 
GOBAK, FNOP:JA . /Return to 

/Calling program 

Location 00000 of the calling routine's base page points to the list 

of arguments, if any, and may be used by the called subroutine provided 

that it is not modified. Location 0003 of the calling routine's base 

page is free for use by the called subroutine. 

Location 0030 of the calling routine's base page contains the address 

where execution is to continue upon exit from the subroutine, so that 

a subroutine should not return from a JSR call via location of the 

calling routine: 

CORRECT INCORRECT 

FLDA 30 FLDA 

JAC JAC 

The "non-standard" return allows the calling routine to reset its own 

index registers and base page before continuing in-line execution. 

General initialization code for a subroutine would be: 

SECT SUB 

JA #ST 



BASE 
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#ST, STARTD /So only 2 words 

/Will be picked up 

FLDA 30 /Get return JA 

FSTA GOBAK /Save it 

FLDA /Get pointer to list 

SETX XSUB /Set SUB's XR 

SETB BSUB /Set SUB's Base 

BASE BSUB 

INDEX XSUB 

FSTA BSUBX /Store pointer 

/Somewhere on Base 



STARTF /Set F mode before 

JA GOBAK /Return 



The above code can be optimized for routines that do not require full 

generality. The JA #ST around the base page code is a convenience 

which may be omitted. The three words of text are necessary only for 

error traceback and may also be omitted. If the subroutine is not 

going to call any general subroutines, the SETX and SETB instructions 

at location RTN and the JA RTN at location 0030 are not necessary. If 

the subroutine does not require a base page, the SETB instruction is 

not necessary in subroutine initialization; similar remarks apply to 

index registers. If neither base page nor index registers are modified 

by the subroutine, the return sequence: 

FLDA 
JAC 

is also legal. In a subroutine call, the JA around the list of argu- 
ments is unnecessary when there are no arguments. A RALF listing of 
a FORTRAN source will provide a good reference of general FPP coding 
conventions. 

In order to generate good 8-mode code, one must be aware of the manner 
in which the loader links and relocates RALF code. The loader handles 
three 8-mode section types: COMMZ , FIELD1, and SECT8. All three 
types of section are forced to begin and end on page boundaries and to 
be a part of level MAIN; 8-mode sections never reside in overlays. 
COMMZ and FIELD1 sections are forced to reside in field 1; SECT 
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sections may be in any field. The first COMMZ section encountered is 
forced to begin at location 10000, thus enabling a page in field 1. 
COMMZ sections of the same name are handled like COMMON sections of 
the same name (i.e., they are combined into one common section). This 
feature allows 8-mode code in different modules to share page 0, pro- 
vided that the modules do not destroy each other's page allocations. 
Suppose two modules were to share page 0, with the first using location 
0-17 and the second using locations 20-37: 



PI, 

P2 

KSUBAl , 
KSUBA2 , 


COMMZ SHARE 

1 

2 

SUBAl 

SUBA2 


/Module A 


LASTA, 


• 

-1 


/Should not go over 
/20 locations 


FIELDl 


A 

TADZ PI 
JMSZ% KSUBAl 




P3, 

P4, 
KSUBB, 


a 

COMMZ SHARE 
ORG .+20 

3 
4 
SUBB 


/Module B 

/ORG past module A' 
/Page 


LASTB 
FIELDl 


-2 

B 

TADZ P3 





The two COMMZ sections will be put on top of one another, however, 
because of the ORG .+20 in module B, they will effectively reside back 
to back. When the image is loaded, the COMMZ sections will look as 
follows: 
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LOC CONTENTS 

1 0000 1 
0001 2 

2 SUBA1 

3 SUBA2 



1 0017 -1 /LASTA 

1 0020 3 

21 4 

22 SUBB 



37 -2 /LASTB 

If module A is to reference module B's page 0, the procedure is: 

P3=20 
TADZ P3 

Alternately, a duplicate of the source code for COMMZ SHARE may be 

included in module B. Modules that are using the same COMMZ section 

must be aware of how it is divided up. Although COMMZ SHARE takes 

only 40 locations, the loader allocates a full 200 locations to it. 

All 8 -mode section core allocations are always rounded up so that they 

terminate on a page boundary. If COMMZ sections of different names 

exist, they are accepted by the loader and inserted into field 1, but 

only one COMMZ is the real page 0. In general, it is unwise to have 

more than 1 COMMZ section name. 

FIELD1 sections are identical to COMMZ sections in most respects. 
Memory allocation for FIELD1 sections is assigned after COMMZ sections, 
however, and FIELD1 sections are combined with FORTRAN COMMON sections 
of the same name as well as other FIELD1 sections of the same name. 
The first difference ensures that COMMZ will be allocated page 
storage even in the presence of FIELD1 sections. The second allows 
PDP-8 code to be loaded into COMMON, making it possible to load ini- 
tialization code into data buffers. Two FIELD1 sections with the 
same name may be combined in the same manner as two COMMZ, sections. 
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The primary purpose of COMMZ is to provide a PDP-8 page 0; the primary 
purpose of FIELD1 is to ensure that 8-mode code will be loaded into 
field 1 and that generating CIF CDF instructions in-line is not neces- 
sary. SECT8 sections may not be combined in the manner of a COMMON 
and are not ensured of being placed into field 1. 

An 8-mode section does not have to be less than a page in length; 
however, the programmer should be aware that a SECT8 section which 
exceeds one page may be loaded across a field boundary and could 
thereby produce disastrous results at execution time. For this reason, 
it is generally unwise to cross pages in SECT8 code. This situation 
will never occur on an 8K configuration. If the total amount of COMMZ 
and FIELD1 code exceeds 4K, the loader generates an OVER CORE message. 
The loader generates an MS error for any of the following: 

1. A COMMZ section name is identical to some entry point or some 
non-COMMZ section name. 

2. A FIELD1 section name is identical to some entry point or a 
SECT, SECT8 or COMMZ section name. 

3. A SECT8 section name is identical to an entry point or some 
other section name. 

COMMZ sections, like FORTRAN COMMONS, are never entered in the library 
catalog. 

For users who intend to write 8-mode code that will execute in con- 
junction with certain 8-mode library routines, the layout of PDP-8 
FIELD1 #PAGE is: 

LOCATION USE 

0-1 Temps for any non-interrupt time routine. 

2-13 User locations. 

14-157 System locations. 

160-177 User locations. 

1. Do not define any COMMZ sections other than the system COMMZ 
which is #PAGE0. 
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2. If the system page is desired, it will be pulled in from 
the library if EXTERN #DISP appears in the code. 

3. Do not use any part of page reserved for the system. 
Special purpose PDP-8 mode subroutines may be written to perform idle 
jobs (refreshing a scope, checking sense lines) or to handle specific 
interrupts not serviced by FRTS. 

The run-time system enters idle loops while waiting for the FPP to 
complete a task or for an I/O job to complete. It is possible to 
effect a JMS to a user routine during the idle loop. 

RTS contains a set of instructions such as: 

#IDLE, JMP .+4 


CDF CIF 

JMS I .-2 

This sequence of instructions must be revised if an IDLE routine is to 

be called. 



The location #IDLE must be changed to a SKP (7410) . #IDLE+1 must be 

set to the address of the routine to be called. #IDLE+2 must be set 

to a CDF CIF to the field of the routine. This setup can be done in a 

routine that is called at the beginning of MAIN. For example: 

CALL SETIDL 

where SETIDL is a routine such as: 

/Must be an 8-mode section 



SXR, 

BP, 
XR, 



SECT8 SETIDL 
JA #RET 

TEXT +SETIDL+ /Traceback information 

SETX XR 
SETB BP 
0.0 
0.0 



ORG 10*3+BP 
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FNOP 


/For trace back 




JA SXR 




RET, 



JA . 


/Return address 


#RET, 


• 

STARTD 


/Set up 




FLDA 10*3 


/Return address 




FSTA RET 






SETB BP 


/Just for traceback 




TRAP4 SET8 


/Go to the 8 mode 
/Routine set 8 




STARTF 




nriinn 


JA RET 



TAD IDLAD 


/Return to main 


OCilO , 


/Field of idle 




CLL RTL 






RAL 


/Move to 
/Bits 6-8 




TAD SCDF 


/CDF to #IDLE 




DCA .+3 






TAD IDLAD+1 


/Address of #IDLE 




DCA IDPTR 









/CDF goes here 




TAD S7410 


/SKP 




DCA% IDPTR 


/Store at #IDLE 




TAD JOB+1 


/Address of IDLE top routine 




ISZ IDPTR 






DCA IDPTR 


/Store a #IDLE+1 




TAD JOB 


/Field of routine 




CLL RTL 






RAL 


/Position 




TAD SFIELD 






ISZ IDPTR 






DCA% IDPTR 


/Store at #IDLE+2 




CDF CIF 


/Set to field 




JMP% SET 8 


/Return to instruction 
/Following "TRAP4 SET8" 




EXTERN #IDLE 




IDLAD, 


ADDR #IDLE 


/15 bit address of IDLE 


JOB, 


ADDR DOIT 


/15 bit address of IDLE 
/Routine "DOIT" 


SCDF, 


6201 


/CDF 


SFIEL, 


6203 


/CDF CIF 


IDPTR, 







S7410, 


7410 


/Skip 



DOIT, 



/The following routine performs the 

/IDLE task 

/Executed during IDLE loops 



/Perform task 



CDF CIF 
JMP% DOIT 



/Back to field 
/And back 
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If the subroutine is checking for an illegal argument, an argu- 
ment error message with traceback can be included in the subroutine 
by adding two lines somewhere on the base page: 

EXTERN #ARGER 
EXAMER, TRAP 4 #ARGER 

When the error is detected in the program, effect a jump to the 

TRAP4 instruction- For example, 

FLDA% EXTMP1 

JEQ EXAMER /A value of is illegal 



or 



FLDA EXTMP1 
FNEG 

FADD EXTMP2 

JLT EXAMER /The value in EXTMP1 must be 

/greater than that in EXTMP2 

Some points to note in the above example 



1. Using a # as the first character in the name of the start 
of the program assumes that the name is not called from 
the FORTRAN level. This is because # is an illegal FORTRAN 
keyboard character. 

2. If index registers 3-5 are not used by the subroutine, the 
space from XR3 to the ORG statement can be used for temporary 
storage, if needed. 

3. The arguments passed from the FORTRAN level do not have to 
be picked up all at once at the start of the calculation 
(3-word) portion of the program .. They can be picked up as 
required during the program, can be saved in temporary space, 
or accessed indirectly each time required, as best suits 

the subroutine. 

If a call to this routine such as Z=EXAMPL(A,B,C,D) were encountered 

by the compiler, it would generate the following call to the routine: 

JSR EXAMPL /go to the routine 

JA .+10 /jump around arguments 

JA A /pointer to 1st argument 

JA B /pointer to 2nd argument 

JA C /pointer to 3rd argument 

JA D /pointer to 4th argument 

The AMOD routine is listed below to illustrate an application 
of the formal calling sequence. It also includes an error condi- 
tion check and picks up two arguments. When called from FORTRAN, the 
code is AMOD(X,Y) . 
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/ 






/ 






/ 






/ 


A M D 




/ 


_ - - - 




/ 






/SUBROUTINE 


AMOD<X t Y) 




SECT 


AMOD 




ENTRY 


MOD 




JA 


#AMOD 




TEXT 


+AMOD + 


AMODXR, 


SETX 


XRAMOD 




SETB 


BPAMOD 


BPAMOD, 


F 0.0 




XRAMOD, 


F 0.0 




AMODX, 


F 0.0 






ORG 


10*3+BPAMOD 




FNOP 






JA 


AMODXR 









AMDRTN, 


JA 


• 




EXTERN 


#ARGER 


AMODER, 


TRAP4 
FCLA 


#ARGER 




JA 


AMDRTN 




BASE 





/LONG ENOUGH TO 


GET RETURN , 


MOD, 






#AMOD, 


STARTD 






FLDA 


10*3 




FSTA 


AMDRTN 




FLDA 







SETX 


XRAMOD 




SETB 


BPAMOD 




BASE 


BPAMOD 




LDX 


1,1 




FSTA 


BPAMOD 




FLDA 7. 


BPAMOD, 1 




FSTA 


AMODX 




FLDA 7. 


BPAMOD, 1+ 




FSTA 


BPAMOD 




STARTF 






FLDA 7. 


BPAMOD 




JEQ 


AMODER 




JGT 


.+3 




FNEG 






FSTA 


BPAMOD 




FLDA7. 


AMODX 




JGT 


. + 5 




FNEG 






LDX 


0,1 




FSTA 


AMODX 




FDIV 


BPAMOD 




JAL 


AMODER 




ALN 







FNORM 






FMUL 


BPAMOD 




FNEG 






FADD 


AMODX 




JXN 


AM,1 




FNEG 




AM, 


JA 


AMDRTN 



/SECTION NAMECREAL NUMBERS) 
/ENTRY POINT NAME( INTEGERS) 
/JUMP TO START OF ROUTINE 
/FOR ERROR TRACE BACK 
/SET INDEX REGISTERS 
/ASSIGN BASE PAGE 
/BASE PAGE 
/INDEX REGS. 
/TEMP STORAGE 
/RETURN SEQUENCE 



/EXIT 

/PRINT AN ERROR MESSAGE 
/EXIT WITH FAC=0 

/STAY ON CALLER'S BASE PG 
ADDRESS 

/START OF INTEGER ROUTINE SAME AS 
/START OF REAL NUM. ROUTINE 
/GET RETURN JUMP 
/SAVE IN THIS PROGRAM 
/GET POINTER TO PASSED ARG 
/ASSIGN MOD'S INDEX REGS 
/AND ITS BASE PAGE 



/ADDR OF X 
/ADDR OF Y 



/GET Y 

/Y=0 IS ERROR 

/ABS VALUE 

/GET X 

/ABS VALUE 

/NOTE SIGN 

/SAV IN A TEMPORARY 

/DIVIDE BY Y 

/TOO BIG. 

/FIX IT UP NOW. 

/MULITPLY IT. 
/NEGATE IT. 
/AND ADD IN X. 
/CHECK SIGN 

/DONE 
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RTS has its own interrupt skip chain in which all on-line device flags 
are checked and serviced. This chain may be extended to handle 
special interrupts. The external tag #INT marks the first of three 
locations on RTS which have to be modified to effect a JMS to the 
user's special interrupt handler. The three locations must be set up 
in exactly the same manner as that used to set up #IDLE, #IDLEl, #IDLE2 
as described above. All the same conventions hold. Refer also to the 
library subroutines ONQI and ONQB. 

Three pseudo-ops have been added to RALF to help the loader determine 

core allocation. Each is a more definitive case of the SECT pseudo-op 

and defines a chunk of code, thereby providing more control for the 

user. They are: 

SECT8 - section starts at a page boundary 

FIELD1 - section starts at a page boundary and is in field 1 

COMMZ - section starts at page of field 1 

If there is more than one SECT8 section in a module, those sections 

are not necessarily loaded in contiguous core. The loader considers 

core to be in two chunks - one block in field 0, and all of field 1 

and above. 

If there is more than one COMMZ pseudo-op in a module, they are stacked 
one behind the other, but there is no way of specifying which one 
starts at absolute location of field 1. COMMZ sections are 
allocated by the loader before FIELD1 sections. 

Modules can share a COMMZ section in the same way that FORTRAN COMMON 
sections can be shared. FIELD1 sections can also be shared by using 
the same FIELDl section name in each module. 

The first occurrence of a section name defines that section. For 
example , 
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SECT8 PARTA 

SECT 8 PARTB 

SECT8 PARTA 
The second mention of PARTA in the same module continues the source 
where the first mention of PARTA ended at execution time. (There is 
a location counter for each section.) 

To save core, a RALF FIELD1 section and FORTRAN COMMON section of the 
same name are mapped on top of each other, being allocated the length 
of the longer and the same absolute address by the loader. This 
feature is useful for initialization (once-only) code, which can later 
be overlayed by a data area. Thus, the occurrence of FIELD1 AREA1 in 
the RALF module and COMMON AREA1 in the FORTRAN program causes AREA1 
to start the same location (in field 1) and have a length of at least 
200 locations (depending on the length of the RALF FIELD1 section or 
of the COMMON section in the FORTRAN) . 

If the subroutine is longer than one page and values are to be passed 
across page boundaries, the address pseudo-op, ADDR, is required. 
The format is: 

AVAR1, ADDR VAR1 
This generates a two-word reference to the proper location on another 
page, here VAR1. For example, to pass a value to VAR1, possible code 
is: 

00124 1244 TAD VAR2 /Value on this page 

00125 3757 DCA% AVAR1+1 /Pass through 12-bit 

/location 

00156 0000 AVAR1,ADDR VAR1 /Field and 

00157 0322 /location of VAR1 

Any reference to an absolute address can be effected by the ADDR 
pseudo-op. 
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If it is doubtful that the effective address is in the current data 

field, it is necessary to create a CDF instruction to the proper field. 

In the above example, suitable code to add to specify the data field 

is: 

TAD AVAR1 /Get field bits 

RTL /Rotate to bits 6-8 

RAL 

TAD (6201 /Add a CDF 

DCA .+1 /Deposit in line 

/Execute CDFn 

If the subroutine includes an off-page reference to another RALF 
module (e.g., in FORLIB) , it can be addressed by using an EXTERN 
with an ADDR pseudo-op. For example, in the display program, a ref- 
erence to the non-interrupt task subroutine ONQB is coded as 

EXTERN ONQB 
ONQBX , ADDR ONQB 

and is called by 

JMS% ONQBX+1 

The next instruction in the program is ADDR DISPLY so that DISPLY will 

be added to the background list. Execution from ONQB returns after 

the ADDR pseudo-op. 

It may be desirable to salvage the first (field) word allocated by 

ADDR pseudo-ops. If the address requires only twelve bits for proper 

execution, code such as 

TMP, TMP,ADDR X 

ARG,ADDR X or ARG= .-1 

permits TMP to be used for temporary storage because ARG+1 in the left 

hand example or just ARG in the right hand example defines the 12-bit 

address. 

RALF does not recognize LINC instruction or PDP-8 laboratory device 
instructions. Such instructions can be included in the subroutine 
by defining them by equate statements in the program. 
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For example , adding the statements : 

PDP = 2 
LINC = 6141 
DIS = 140 

takes care of all instructions for coding the PDP-12 display subroutine. 

When writing a routine that is going to be longer than a page, it can 
be useful to have a non-fixed origin in order not to waste core and to 
facilitate modification of the code. A statement such as 

IFPOS .-SECNAM&177-K<ORG . -SECNAM&7600+200+SECNAM> 
will start a new page only if the value [current location less section 
name] is greater than some K (start of section has a relative value of 
0) where K<177 and is the relative location on the current page before 
which a new page should be started. The ORG statement includes an AND 
mask of 7600 to preserve the current page. When added to 200 for the 
next page and the section name, the new origin is set. 

When calculating directly in a module, the following rules apply to 
relative and absolute values. 

relative - relative = absolute 
absolute + relative = relative 

OR (!), AND (&) and ADD (+) of relative symbols 
generate the RALF error message RE. 

When passing arguments (single precision) from FPP code to PDP code, 
using the index registers is very efficient. For example, 



FLDA% ARG1 
SETX MODE 8 



ATX 



MODE 8 



TRAP 4 SUB 8 
SUB8, 

TAD MODE 8 
MODE 8, 



/Get argument in FPP mode 
/Change index registers so XR0 is 
/At MODE 8 
/Save argument 

/Go to PDP-8 routine 

/PDP-8 routine 

/Get argument 

/Index registers set here 
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CHAPTER 3 

THE FORTRAN IV LOADER 

The FORTRAN IV loader accepts a set of (up to 128) RALF modules as 
input, and links the modules, along with any necessary library 
components, to form a loader image file that may be read into memory 
and executed by the run-time system. The main task accomplished by 
the loader is program relocation, achieved by replacing the rela- 
tive starting address of every section with an absolute core address. 
Absolute addresses are also assigned to all entry points, all 
relocatable binary text, and the externs. 

The loader executes in three passes. Pass begins by determining 
how much memory is available on the running hardware configuration, 
and then constructs tables from the OS/8 command decoder input for 
use by pass 1 and pass 2. 

Pass 1 reads the relocatable binary input and creates the loader 
symbol table. The length of each input module is computed and 
stored, along with the relative values of entry points defined within 
the input modules. When an undefined symbol is encountered, pass 1 
searches the catalog of the FORTRAN IV library specified to pass , 
or FORLIB.RL if no other library was explicitly specified, and loads 
the library routine corresponding to the undefined symbol. 

Pass 1 also allocates absolute core addresses to all modules and, 
through them, to all symbols. Pass 1 execution concludes by 
computing the lengths of all overlay levels defined for the current 
FORTRAN IV job. Trap vectors are also set up at this time, and 
the tables required for pass 2 loading are initialized. 

Pass 2 concludes loader execution by creating a loader image file 
from the relocated binary input and symbol values processed by pass 1. 
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00000 



02000 



04600 



06600 



07600 
10000 



12000 

12400 
13200 
14000 



16000 
17000 
17600 



LOADER PASS (FILE COLLECTION) 

FIELD 



OS/8 Command Decoder 



Loader Pass 1 and 
Pass 2 



Core measuring routine 
and scratch area to 
save 00000-02000 
during CD calls 



Unused 



OS/8 Field resident 



OS/8 User Service Routine 



Symbol table, loader map 
titles 



Pass code 



Pass 1 initialization 



Module count and 
module tables 



Library catalog header 
read into this block 



OS/8 Field 1 resident 



FIELD 1 



Pass 2 also produces the loader symbol map, if requested, and chains 
to the run-time system if /G was specified. 

Pass contains vary few subroutines. The routine CORDSW checks for 
the presence of /u, /C or /O option specifications, as supplied to 
the command decoder, and processes these options if necessary. A 
routine called UPDMOD is called when input to each overlay has been 
concluded, to update the module counts in the module count table. 
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00000 

01400 

02000 

03200 
04000 

04600 

07200 
07600 
10000 

11400 
12000 

15400 
16000 

17200 
17400 
17600 
20000 

25000 



LOADER PASS 1 (SYMBOL RESOLUTION) 

Pass 1 and Pass 2 FIELD 

utility routines 



Symbol map printer 



Pass 2 



Pass 1 symbol collection 



Inter-pass code allocates 
storage, builds and writes 
Loader Image Header Block. 



Library catalog loads 
here in 8K. Unused in 
12K or more. 



Input device handlers 



OS/8 Field resident 



ESD table 



Symbol table 



Overlay length table 



Module count and module 
tables (MCTTBL, MODTBL) 



Loader header 



ESD reference page 



OS/8 Field 1 resident 



Library catalog loads here 
in 12K or more. 



OS/8 BATCH processor if 
12K or more and BATCH 
is running 



FIELD 1 



FIELD 2 



CORMOV is a general core-moving subroutine, called by the instruction 

sequence: 

JMS CORMOV 

CDF FROMFIELD 

FROMADDR - 1 

CDF TOFIELD 

TOADDR - 1 

- COUNT 

while ERROR is the local error processing routine, called with a 

pointer to the appropriate error message in the accumulator. 

The major pass 1 and pass 2 subroutines, described below, operate on 
the loader internal tables, whose format is presented later in this 
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00000 



01400 
02000 
03200 

05200 

07200 
07600 
10000 

12000 

15400 
16000 

17200 

17400 
17600 
20000 
22000 
24000 
26000 
30000 



LOADER PASS 2 (LOADER IMAGE BUILDER) 

FIELD 



Utility routines: Symbol table 
look-up, TTY message handler, 
OS/8 block I/O, MCTTBL 
processor. 



Routine to print symbol map. 



Pass 2 



Binary buffer #1 



Binary buffer #2 



I/O device handlers 



OS/8 Field resident 



RALF module text loads 
here if 8K. 



Symbol table 



Overlay length table 



MCTTBL and MODTBL 



Binary section table and 
binary buffer (LDBUFS) table 



ESD reference page 



OS/8 Field 1 resident 



Binary buffer #3, if >8K 



Binary buffer #4, if >8K 



Binary buffer #5, if >12K 



Unused 



RALF module text loads 
here if >12K 



FIELD 1 



symbol map 
output buffer 



FIELD 2 



FIELD 3 



chapter. The subroutines are presented in approximately the order 
that they occur in the source listing. 



SETBPT 



TTYHAN 



Sets words BPTR and BPT2 to contain AC and AC+1 , 
respectively . 

Subroutine to unpack and print a TEXT message on the 
console terminal. TTYHAN is called by: 

CDF CURRENT 

CIF 

JMS TTYHAN 

CDF MSGFIELD 

MSG 
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RTN0S8 



Prints a fatal error message and then returns to the 
OS/8 monitor. A pointer to the message must follow 
the JMS RTNOS8. 



I OH AN 



Used to execute all I/O under OS/8, 
sequence is: 



The calling 



ADVOVR 



NXTOVR 



SETCNT 



LOOK 



SYMMAP 



TAD (ACARG /Optional 

CDF CURRENT 

CIF 

JMS IOHAN 

ADDR 

ARG1 

ARG2 

ARG3 

where ARG1, ARG2 and ARG3 are standard OS/8 device 
handler arguments and ADDR points to a three-word 
block in field 1 which contains the OS/8 unit number 
in word 1, the file length in word 2, and the starting 
block number in word 3 . 

If ACARG is zero, the indicated I/O operation is 
executed after the handler has been FETCHed, if 
necessary. If ACARG=n (greater than zero), the 
handler for OS/8 unit n is FETCHed, no I/O is done, 
and the four arguments that conclude the calling 
sequence are not needed. 

Called to initialize the loader to accept a new input 
module. ADVOVR determines whether a new overlay or 
level is being started by accessing the module count 
table. If so, it sets various pointers and internal 
counters accordingly, rounds the previous overlay to 
terminate on a 200 word boundary, and updates the 
length of the previous level, if necessary, as the 
maximum of its constituent overlay lengths. 

Called by ADVOVR when the next input module will be 
the first module in a new overlay. 

Initializes the pointers and counters used by ADVOVR. 
SETCNT is called once at the beginning of each pass. 

Executes a symbol look-up in the loader symbol table. 
LOOK is called by: 

TAD (Pointer to symbol name in 

RALF ESD format 
JMS LOOK 

RETURN here if not found 
RETURN here if found 
GPTR points to word following entry name 

If the symbol is not found, it is inserted into the 
loader symbol table and GPTR is set to point to the 
word following the symbol name. 

Produces the symbol map. 



3-5 



PUTSYM 



FIT 



Enters an ESD symbol in the loader symbol table. 
PUTSYM calls LOOK to determine whether the symbol 
is already present in the symbol table and, if so, 
verifies that the symbol is not multiply defined. 
Otherwise, it copies the ESD data words into the symbol 
table entry, updates the length of the current overlay 
by the length associated with the symbol, and links 
the symbol to its parent symbol, if any. 

Fits a section into core by subtracting its length 
from the amount of core still available and substi- 
tuting its load address for its length in the symbol 
table. 



D08S, FIT8S 



SETREF 



BLDTV 



NEWORG 



Fits an 8-mode section into core by calling FIT and 
then checking for field 1 overflow. 

Extracts data from the ESD table of the current module 
and initializes, the ESD reference page at 17400. 

Builds the transfer vector. A transfer vector entry 
is created for each subroutine in an overlay. This 
entry provides the information that the run-time 
system will require in order to load the overlay 
containing the referenced subroutine. 

Called whenever an origin is found in an input module, 
to map the location referenced by the origin into a 
block of the loader image file and an address within 
that block. 



NEWBB 



MERGE 



GETCTL 



PUTBIN 



TXTSCN 



Called whenever a new binary buffer is needed during 
loader image file construction. NEWBB scans a list 
of available buffers and dumps the content of the 
least recently accessed buffer to free up space for 
new data. 

Relocates an input word pair and outputs it to the 
loader image file. 

Gets a control byte from the input module and incre- 
ments its return address by the content of the control 
byte. 

Inserts words, sequentially, into the current binary 
buffer. When the buffer is full, PUTBIN calls 
NEWBB to execute output to the loader image file and 
supply a new buffer. 

Called once for each input module. TXTSCN reads and 
relocates an entire input module, executing calls to 
MERGE, PUTBIN and NEWORG as needed. 
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SYMBOL TABLE 

The loader symbol table begins at location 12000 and contains room 
for 26 (decimal) permanent system symbol entries and 218 (decimal) 
user entries. Each entry is 7 words long, and provides the name and 
definition of a symbol. The table is organized in buckets according 
to the first character of the symbol, which must be A to Z, #, or 
blank (for blank COMMON) . The table of bucket pointers begins at 
location 12000 with the pointer to bucket A, and consists of one word 
per bucket. This word contains a value of zero, if there are no 
symbols in the corresponding bucket, or else the address of the first 
symbol in the bucket. 

Symbols within a bucket are arranged in alphabetical order, with each 
symbol entry pointing to the following entry, and the last entry 
pointing to zero. Thus, the symbol table appears as a set of threaded 
lists in core. The format of a symbol table entry is: 



1-bit trap 
vector flag during 
pass 1. Error 
flag during pass 2. 



Pointer to next symbol in 
bucket (zero if none) . 



M 



3-bit 

level 

# 



4-bit 

overlay 

# 



9-bit pointer to 
parent symbol during 
pass 1 (zero if none). 
Trap vector displace- 
ment during pass 2. 



, 4-bit type code 



Field 
bits 



ADDRESS 
(Length during pass 1) 



WORD 1 



WORD 2 



WORD 3 



0- undefined 

1- entry point 

2- extern 

3- common sect 

4- program sect 

5- multiple entry point 

6- multiple sect 

7- SECT8 sect 
10-CCMlZ 

11-FIELD1 

12 to 17- undefined 
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Several special symbols are created by the loader. The symbol #YLVLn, 
where n is an octal digit, describes overlay level n. This symbol 
table entry contains the length of level n during pass 1 and the 
starting address of level n during pass 2. 

The symbol #YTRAP describes the trap vector, a method by which the 
run-time system controls automatic overlaying of user subroutines. 
Four words are allocated in the trap vector for each entry point in 
every overlay except overlay #MAIN. The symbol table entry for #YTRAP 
contains the accumulated length of the trap vector during pass 1 and 
the trap vector starting address during pass 2. 

ESD CORRESPONDENCE TABLE (ESDPG) 

The ESD correspondence table begins at location 174 00 and contains 
128 (decimal) 1-word entries. This table establishes the corre- 
spondence between the local ESD reference numbers used to reference 
a symbol inside a RALF module, and the address of that symbol in the 
loader symbol table. The n th entry in the ESD correspondence table 
points to the address of ESD symbol n. 

BINARY BUFFER TABLE (LDBUFS) 

The binary buffer table begins at location 17247 and contains from 
two to ten entries, depending upon the amount of memory available. 
Each entry is 4 words in length. The binary buffers function as 
windows into the loader image file, through which the loaded program 
is written onto mass storage. Each binary buffer is 8 pages 
(4 OS/8 blocks) in length. The loader tries to minimize the amount 
of "window turning" necessary to buffer the binary data by keeping a 
record of the last time each buffer was referenced. In this way, 
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when the content of a binary buffer must be dumped to make room for 
new data, the loader empties that buffer which was least recently 
used. 

In addition, program loading is overlay oriented such that only one 
overlay is loaded at a time and while any specific overlay is being 
loaded, only origins inside that overlay are legal. 

The format of a binary buffer table entry is: 



Pointer to the binary 
buffer of "next earliest 
reference", i.e., the youngest 
buffer older than this 
buffer. Contains zero if 
this buffer is oldest. 



Loader image block #. 
Contains zero if buffer 
has not been used. 



Blocks left in current 
overlay. If <4, only 
part of buffer will 
be dumped. 



Page address 
of buffer. 



Buffer 

field 

bits 



Unused 



WORD 1 



WORD 2 



WORD 3 



WORD 4 



The number of binary buffers used varies with the amount of memory 
available as follows: 



MEMORY 


NO. 


OF 


AVAIL 


BUFFERS 


8K 


2 




12K 


4 




16K 


5 




20K 


7 




24K 


10 


(decimal) 


28K 


10 


(decimal) 


32K 


10 


(decimal) 
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BINARY SECTION TABLE 

The binary section table overlays the loader image header block 
(described under FRTS) after the latter has been written into the 
loader image file at the beginning of pass 2. Thus, the binary 
section table begins at location 17200 and contains eight 4 -word 
entries. Each entry relates the core origin of one of the eight 
overlay levels to that level's position in the loader image file. 
The format of a binary section table entry is: 



WORD 1 

WORD 2 
WORD 3 
WORD 4 



OVERLAY TABLE (OVLTBL) 

The overlay table begins at location 15435 and contains room for 
113 (decimal) 2-word entries. There is one entry for each overlay 
defined, including overlay MAIN, with each entry designating the 
length in words, of the corresponding overlay. The format of an 
overlay table entry is: 



Unused 


Field 

of 
level 


Address of level 


Relative block # 


Length (in blocks) 



LEVEL 


MAIN 




LEVEL 


1 OVERLAY 


1 



LEVEL m 


OVERLAY 


n- 


■1 


LEVEL m 


OVERLAY 


n 




OVLTBL 


format 







}• 



Negated to indicate 
last table entry 



HIGH-order bits 
of length 



LOW-order bits 
of length 



WORD 1 



WORD 2 



individual entry (2 words) 
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MODULE DESCRIPTOR TABLE (MODTBL) 

The module descriptor table begins at location 16172 and contains 
room for 172 (decimal) 3-word entries. Each entry provides the in- 
formation needed to locate an input module. The first MODTBL entry 
corresponds to the library file to be used in building the current 
loader image. Successive entries correspond to input modules and 
appear in the order that the modules were specified by the user, 
(i.e. , in ascending order by level, and ascending by overlay within 
any given level.) At the end of pass 1, entries corresponding to 
individual library modules are appended to the end of the table, 
even though the library modules load into level MAIN. The table 
format is: 

MODTBL 



FORLIB.RL or user- 
specified library 



Level MAIN module #1 



Level MAIN module #2 



Level MAIN module #3 



Level MAIN module n 



Level 1 Overlay 1 module #1 



Level 1 Overlay 1 module #2 



r 



I 



OS/8 I/O unit # 



File length (positive) 



Starting block # 



MODTBL format of 
individual entry (3 words) 



Level 1 Overlay 1 module #n 



Level 1 Overlay 2 module #1 



Level m 


Overlap 


n 


module 


#P 


Library 


module 


#1 






Library 


module 


#2 







MODTBL format 
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MODULE COUNT TABLE (MCTTBL) 

The module count table begins at location 16000 and contains room for 
122 (decimal) 1-word entries that give the (two's complement) module 
count for each overlay level. The table format is: 



MCTTBL 




LEVEL MAIN 





LEVEL 1 OVERLAY 


1 


LEVEL 1 OVERLAY 


2 


LEVEL 1 OVERLAY 


3 



LEVEL 


1 


OVERLAY 


n 





LEVEL 


2 


OVERLAY 


1 


LEVEL 


2 


OVERLAY 


2 



LEVEL 2 OVERLAY n 







LEVEL 3 OVERLAY 1 



1-word ENTRIES 



LEVEL 


m 


OVERLAY 


n 









If an overlay or level is not defined for a specific program, there 
is no module count table entry corresponding to that overlay or level. 

The loader image file, produced by the loader and read as input by the 
run-time system, consists of a header block followed by a binary 
image of each level defined in the FORTRAN IV job. 



HEADER 
BLOCK 



LEVEL 
MAIN 



LEVEL 
1 



LEVEL 
n 
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The loader image file header block contains information in the 
following format: 



LOCATION 



1-2 

3-4 

5 
6 
7-46 



CONTENTS 

2 — Identifies the file as a loader image file. 

Initial SWAP arguments to load level MAIN. 

Highest address used by core load, including overlays 
but not including OS/8 device handlers. 

Loader version number. 

Double-precision flag. 

User overlay information table containing one 4-word 
entry per overlay level (the level MAIN entry is 
ignored) in the following format: 



Load address ■*■ 



Unused until SWAP time . Must 
be positive or zero. 


WORD 
WORD 
WORD 

WORD 


1 


Page 
bits 


Bits 4-5 
unused 


Field 
bits 


Bits 9-11 
unused 


2 


Block number of this level , 
relative to header block. 


3 


Length of overlays in this level, 
in blocks. 


4 
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CHAPTER 4 
THE FORTRAN IV RUN-TIME SYSTEM 

The FORTRAN IV run-time system supervises execution of a FORTRAN 
job and provides an I/O interface between the running program and 
the OS/8 operating system. FRTS includes its own loader, which 
should not be confused with LOAD, the system loader. It executes 
with only one overlay, used to restore the resident monitor and 
effect program termination. The run-time system was designed to 
permit convenient modification or enhancement, and it is well docu- 
mented in the assembly language source, available from the Software 
Distribution Center, which includes extensive comments. 

One of the most valuable modifications to FRTS provides for the 
inclusion of background (or idle) jobs. When FORTRAN is waiting for 
I/O operations or the FPP to complete execution, the PDP-8 or PDP-12 
processor is sitting in an idle loop. An idle job may be executed 
by the PDP-8 or PDP-12 CPU during this time, perhaps for the purpose 
of refreshing a CRT display, for example, or monitoring a controlled 
process. To indicate such a job, the idle wait loop must be modified 
to include a reference to the user's PDP-8 routing ., The routine 
#IDLE in FRTS must be changed as part of the user's subroutine from 

#IDLE, JMP .+4 to #IDLE, SKP 

ADDUSR 

CDF CIF FLDUSR 

JMS I .-2 JMS I .-2 

Devices issuing interrupts may be added to the interrupt skip chain 

so that FORTRAN checks the user's device as well as system devices. 

The original code is: 

#INT, JMP .+4 


CDF CIF 
JMS I .-2 
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and must be changed, as above, to: 

#INT, SKP 

ADDUSR 
FLDUSR 
JMS I .-2 

In both cases, ADDUSR should be the address of the user's routine, and 

FLDUSR should be the memory field of the user's routine. 

The idle job is initiated by the subroutine HANG in the run-time 

system. Hang should only be called when the FORTRAN program must 
wait for an I/O device flag. The calling sequence is: 

EXTERN #HANG 

IOF /Important. 

CDF n /Where n is current field. 

CIF 

JMS% HANG+1 

ADDRSS 

/Return here with interrupts OFF 
/When device flag is raised. 

HANG, ADDR #HANG 
The word ADDRSS must point to a location in page 400 of the run-time 
system which must normally contain a JMP DISMIS. Three such locations 
have been provided for the user at #DISMS, #DISMS+1, and #DISMS+2. 
The selected location must be the location via which the interrupt 
caused by the desired flag is dismissed. No two flag routines should 
use the same dismiss location. The following program example illus- 
trates these calling conventions. This routine may be used to drive 
a Teletype terminal via the PT08 option. 
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EXTERN #ONQI 

EXTERN #DISMS 

FIELD1 GETCH 



ISZ FIRST 

JMP NOTFST 

JMS7. ONQI+1 

KSF1 

ADDR KSFSUB 

TAD DISMIS+i 

DCA HNGLOC 

NOTFST, IOF 

TAD INCHR 
SZA CLA 
JMP GOT1 
CIF 
JMS7. HANG+1 

HNGLOC, 

GOT1 , TAD INCHR 
DCA FIRST 
DCA INCHR 
TAD FIRST 
ION 
J MP 7. GETCH 

KSFSUB, 

KRB1 

DCA INCHR 
CDF CIF 
JMP7. DISMIS+1 

INCHR, 

ONQI, ADDR #ONQI 

HANG, ADDR #HANG 

DISMIS, ADDR #DISMS 

FIRST, -1 



/JI1S GETCH GETS A CHAR 
/GETCH RUNS IN FIELD 1 ONLY 



/SET UP TO CALL HANG 



/NO CHAR READY: HANG 
/HANG RETURNS W/ IOF 



/INTERRUPT ROUTINE 
/CALLED AS SUBROUTINE 



/RETURN TO SYSTEM LOCATION 
/CONTAINING "JMP DISMIS" 



In most cases, it is easier to include references to the FORLIB 
module ONQI for adding a handler to the interrupt skip chain and 
ONQB for adding a job to the idle chain, instead of trying to modify 
#IDLE and #INT. ONQB provides slots for up to 9 idle jobs to be 
executed round-robin, and ONQI provides for up to 9 user flags to 
be tested on program interrupts. 

FRTS entry points are listed, along with the core map, on the following 
pages. The FRTS calling sequence must be observed in any user 
subroutine. The formal calling sequence is illustrated below. In 
general, it can be used exactly as illustrated, changing only the 
section, entry, base page, index register and return location names. 
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FRTS CALLING SEQUENCE 



SECT EXAMPL 



JA #EXSRT 



TEXT +EXAMPL+ 



EXAMXR, SETX XREXAM 



BPEXAM, 
XREXAM, 

EXTMP1, 
EXTMP2, 
EXTMP3, 



EXMRTN , 
#EXSRT, 



SETB BPEXAM 
F 0.0 

0.0 

0.0 

0.0 

0.0 

0.0 



/Section name. Your module may 

/require another section pseudo-op 

/such as FIELD1 or SECT8. 

/Jump to start of subroutine 

/Use # for first character 

/6 character section name for 

/error traceback (optional) 

/Set up index registers 

/for this subroutine 

/and its base page. 

/Base page 

/Index registers 0-2 

/Index registers 3-5 (optional) 

/Space between index registers 

/and the ORG for temporary 

/storage (optional) 



ORG 10*3+BPEXAM /Location 30 of base page 



FNOP 

JA EXAMXR 



JA . 
BASE 
STARTD 
FLDA 10*3 

FSTA EXMRTN 

FLDA 

SETX XREXAM 
SETB BPEXAM 
BASE BPEXAM 
FSTA BPEXAM 
LDX 1,1 
FLDA% BPEXAM, 
FSTA EXTMP1 
FLDA% BPEXAM, 
FSTA EXTMP2 
FLDA% BPEXAM, 
FSTA EXTMP3 



/Force a two-word instruction 

/Jump to base page for 

/return to calling program 

/Force a two-word instruction 

/Will be replaced by return jump 

/Caller's base page 

/Start of subroutine 

/Get return jump from caller's 

/base page 

/Save in return location for 

/this routine 

/Location of caller's routine 

/is a pointer to the argument list 

/Change to EXAMPL' s index registers 

/Change to EXAMPL 's base page 

/Save the pointer 

/Set up index register 1 
1 /Get address of argument list 

/Save the addresses 
l+/of all passed arguments 



1+ 



/Continue for all arguments 
/to be picked up 



STARTF 
FLDA% EXTMP1 



/Start three-word instructions 



FLDA% EXTMP2 



JA EXMRTN 



/Continue to get arguments 
/as required in routine 
/Exit when done 
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RTS ENTRY POINT 



USEAGE AND COMMENTS 



#UE 

#ARGER or 
#ARGERR 

#READO 



#WRITO 



#RUO 


TRAP 3 #RUO 
JA UNITNO 


#WUO 


TRAP 3 #WUO 
J A UNITNO 


#RDAO 


TRAP 3 #RDAO 
JA UNITNO 
JA RECNO 


#WDAO 


TRAP 3 #WDAO 
JA UNITNO 
JA RECNO 


#RFSV 


TRAP 3 #RFSV 


#RENDO 


TRAP 3 #RENDO 


#ENDF 

#REW 
#BAK 


FLDA UNITNO 
TRAP 3 #ENDF 
or TRAP 3 #REW 
or TRAP 3 #BAK 


#DEF 


TRAP 3 #DEF 
JA UNITNO 
JA RECORDS 
JA FPNPR 
J A VARIABLE 


#EXIT 


JSR #EXIT 


#SWAP 


TRAP 3 #SWAP 
ADDR 


#80R12 


7=00000001 if 


#IDLE 


Address of ba> 




JMP I (NULJOB 



CDF CIF 

JMS I .-2 

JMP .-4 



TRAP3 #UE /Produces USER ERROR error message, 
TRAP4 #ARGER /Produces BAD ARG error message. 



TRAP3 #READO /Initializes 

JA UNITNO /formatted 

JA FORMAT /read operation. 

TRAP3 #WRITO /Initializes 

JA UNITNO /formatted 

JA FORMAT /write operation. 



/Initializes unformatted 
/read operation. 

/Initializes unformatted 
/write operation. 

/Initializes 
/direct access 
/read operation. 

/Initializes 
/direct access 
/write operation. 

/Passes a variable to or from the read/ 
/write processors via the floating AC. 

/Terminates a read/write operation. 

/Executes an 

/end file, 

/rewind, 

/backspace (depending upon the entry used) 

/on the referenced I/O unit. 

/Opens a file 

/for direct access I/O. 

/ (FPP numbers per record) 
/Refer to DEFINE FILE statement 

/Terminates current FORTRAN* IV job. 

/Reads overlay OVLY into level LVL and 
/jumps to ADR. ADDR is given by: 
/ADDR=4000000*OVLY+100000*LVL+ADR 



jround job, used by ONQB. Contains: 

/Replace by SKP 

/Replace by addr of background job 

/Replace by field of background job 
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0000 
0200 

0600 
1400 

2000 
2400 
2600 

3000 

3400 

3600 
4000 

4400 

4600 
5200 

5600 
6000 
6600 

7400 
7600 

10000 



NON-FPP 



CORE LAYOUT OF FRTS 

FPP (Same as non-FPP unless indicated) 



Page zero (0120-0134 free) 



Most entry points, character 
I/O handlers , interrupt 
service, and HANG routine 



Format decoder; A, H, and ' 
format processors, and EXIT 



REWIND, ENDFILE, BACKSPACE 
and general unit initializa- 
tion. DATABL table (3wds/unit) 



I, E, F and G output 



I, E, F and G input 



X, L and T formats and 
GETHND routine 



Char in and char out routines 
including OS/8 packing, ed- 
iting and forms control 



Binary and D. A. I/O, and 
DEFINE FILE processor 



Overlay loader 



Input line buffer, overlay 
and DSRN tables, FORMAT 
parenth pushdown list, /P 
processor and init flag clear 



Floating-point utilities 
(shift, add, etc.) used even 
w/FPP 



Error routine and messages 



OS/8 handler area and part of 
FRTS loader initialization 



FPP simulator 



Floating-point package and 
part of LPT ring buffer 



Most of LPT ring buffer 



OS/8 handler and field 
resident 



OS/8 User Service Routine 



FPP start-up and trap routines 



B and D format I/O 



Floating-point package (never used) 
and part of LPT ring buffer 
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12000 
12200 
12400 
12600 

13000 

13400 

14000 
15600 
16000 
16600 
17400 
17600 



FRTS loader tables, IONTBL 



FRTS loader: main flow 



program start-up 1 



initialize and 
configure system 



Load OS/8 handlers and assign 
unit numbers to OS/8 files 



Utility and error routines, 
error messages 



FPP start-up and trap routines 



B and D format I/O 



EAE Floating-point package 



Termination routine 



OS/8 field 1 resident 



Locations 12000 to 17400 are 
overlayed at execution time 



Locations 14000 to 16777 are used 
to save lower field during loading 
of device handlers and file 
specifications 



Locations 17400 to 17777 are 
written on SYS block 37 before 
program load and restored on 
termination 



#INT 



#DISMS 

#HANG 
#RETRN 



/Address of user interrupt location, used by ONQI: 

JMP .+4 /Replace with SKP 

/Replace with address of interrupt 

processor 
CDF CIF /Replace with field of interrupt processor 
JMS I .-2 

/Addresses first of three JMP DISMIS instructions for 
use by specialized I/O routines. 

/Addresses I/O dismiss routine. 

/Provides return from TRAP3. 



Program start-up moves OS/8 handler to top of core, writes field 
1 resident onto SYS, and termination routine goes to FRTS to load 
program. 
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DSRN TABLE 

The DSRN table controls files and I/O devices used under OS/8 FORTRAN 
IV ASCII, binary and direct access I/O operations, including BACKSPACE, 
REWIND, and END FILE operations. The exact meaning of the initials 
DSRN is one of the great, unanswered questions of FORTRAN IV develop- 
ment and, as such, has considerable historical interest. The DSRN 
table provides room for 9 entries; each entry is 9 words in length, 
and contains the following data: 



WORD 1: (HAND) Handler entry point. If this value is positive, 
the I/O device handler is a FORTRAN internal (character- 
oriented) handler, and the remainder of the DSRN table 
entry is ignored. If the value is negative, the handler 
is an OS/8 device handler whose entry point is the two's 
complement of the value. Entry points always fall in 
the range [7607, 7777] for resident handlers or [5200, 
5377] for non-resident handlers. Space for non-resident 
handlers is allocated downward from the top of memory, 
and the handlers are moved into locations 5200 to 5577 
before being called. 

WORD 2: (HCODEW) Handler code word. Bits 0-4 of this word specify 
the page into which the device handler was loaded, while 
bits 6-8 specify the memory field. If all of bits 0-8 
are zero, the handler is permanently resident. When any 
of these bits are non-zero, the data is used to determine 
which handler, if any, currently occupies locations 5200- 
5577. This eliminates unnecessarily moving the content 
of memory. Bit 10 is set if forms control has been 
inhibited on the I/O unit. Bit 11 is set if the device 
handler can execute with the interrupt system enabled. 
The data in bits 10 and 11 is obtained from the IOWTBL 
table in the FRTS loader. 

WORD 3: (BADFLD) Buffer address and field. Bits 0-4 address the 
memory page at which the I/O buffer for this unit begins, 
while bits 6-8 specify the memory field. Unlike the FORTRAN 
internal I/O unit buffers, OS/8 device handler buffers 
always occupy two full pages of memory. Buffer space is 
allocated upward from the top of the FORTRAN program. 

WORD 4: (CHRPTR) Character pointer. 

WORD 5: (CHRCTR) Character counter. Words 4 and 5 of each DSRN 
table entry define the current character/position in the 
I/O buffer as follows: 



4-8 



Value of 
CHRCTR 



Character 
position 



Next value 
of CHRCTR 



Next value 
Of CHRPTR 



Special 
Conditions 





Bits 4-11 of word 






Refresh buffer if 


-3 


addressed by 
CHRPTR 


-2 


CHRPTR + 1 


input operation and 
CHRPTR mod 256=0 


-2 


it 


-1 


ti 


none 


-1 


Bits 0-3 of words 
addressed by 










CHRPTR-2 and 


-3 


CHRPTR 


Dump buffer if 




CHRPTR-1 






output operation and 
CHRPTR mod 256=0 



WORD 6: (STBLK) Starting block of file. 

WORD 7: (RELBLIC) Current relative block of file. That is, block 
to be accessed next. 

WORD 8: (TOTBLK) Length of file in blocks. 

WORD 9: (FFLAGS) Status flags: 

Bit - Has been written flag. Set to 1 if unit has 
received output since last REWIND. 

Bit 1 - Formatted I/O flag. Set to 1 if an ASCII I/O 
operation has occurred since last REWIND. 

Bit 2 - Unformatted I/O flag. Set to 1 if a binary 
or direct access I/O operation has occurred 
since last REWIND. Bits 1 and 2 are never 
set simultaneously. 

Bit 11- END FILEd flag. Set to 1 if unit has been 
END FILEd. Bit 11 is not cleared by a 
REWIND. 



When any active unit is selected for an I/O operation, the DSRN table 
entry for that unit is moved into 9 words on page 0. These 9 words 
are tagged with the labels cited above. Upon completion of the I/O 
operation, the 9 words are moved from page back into the DSRN table. 
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/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8-V8 
/PAGE ZERO FOR FORTRAN IV RTS 



PAGE 3 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00013 
00011 
00012 
00013 



00016 
00017 
00020 
00021 
00022 



00023 
00024 
00025 
00026 
00027 
00030 

00031 
00032 
00033 

00034 
00035 
00036 



00037 
00040 
00041 
00042 
00043 
00044 
00045 
0004S 
00047 
00050 
00051 



0000 
0000 
5402 
0400 
5165 
0000 
0000 



0016 
0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
5431 

5013 

0000 
5000 



0000 
5313 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



*0 



JMP I 

INTRPT 

LPBUFR 





. + 1 



LPGET, 

TOCHR, 

KBDCHR, 

0000 POCHR, 

0000 RDRCHR, 

0000 FMTPXR, 

3777 INXR, INBUFR-1 

0000 XR, 



/INTERRUPT STUFF 



/LINE PRINTER RING BUFFER FETCH 
/TELETYPE STATUS WORD 
/KEYBOARD INPUT CHARACTER 
/P.T. PUNCH COMPLETION FLAG 
/P.T. READER STATUS 
/XR USED TO INDEX FORMAT PARENTH 
/XR USED TO GET CHARS FROM INPUT 



0000 XRl, 







*16 

VEOFSW, 









T, 

DFLG, 

INST, 



/USED BY "EOFCHK" TO STORE VARIABLE ADDRESS 

/*K* MUST BE IN AUTO - XR 

/TEMPORARY 

/0 = F.P., 1 = D.P. 

/CURRENT INSTRUCTION WORD 



/IOH PAGE ZERO LOCATIONS 

RWFLAG, 

FMTTYP, 

EOLSW, 

N, 

W, 

D, 



DATCDF, 
DATAF, 

JMP I 



DATCDF 



ERR, 

FATAL, 

MCDF, 



ERROR 



MAKCDF 



/READ/WRITE FLAG 

/TYPE OF CONVERSION BEING DONE 

/EOL SW ON INPUT - CHAR POS ON OUT 

/REPEAT FACTOR 

/FIELD WIDTH 

/NUMBER OF PLACES AFTER DECIMAL 

/SUBROUTINE TO CHANGE DATA FIELD 
/CONTAINS VARIOUS CDF'S 
/RETURN 

/POINTER TO ERROR ROUTINE 
/FATAL ERROR FLAG - 0=FATAL 



/FPP PARAMETER TABLE LOCATIONS: 



APT, 

PC, 

XRBASE, 

BASADR, 

ADR, 

ACX, 

ACH, 

ACL, 

EAC1, 

EAC2, 

EAC3, 





DPTEST 





















FPP 



/VARIOUS FIELD BITS FOR 

/FPP PROGRAM COUNTER 

/FPP INDEX REGISTER ARRAY ADDRESS 

/FPP BASE PAGE ADDRESS 

/ADDRESS TEMPORARY 

/*** FLOATING ACCUMULATOR *** 



/** FOR EXTENDED PRECISION OPTION ** 
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/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8-V8 

/FLOATING POINT PACKAGE LOCATIONS 



PAGE 4 



00052 


0000 


AC0, 





00053 


0000 


AC1, 





00054 


0000 


AC2, 





00055 


0000 


OPX, 





00056 


0000 


OPH, 





00057 


0000 


OPL, 









/RTS I/O SYSTE 


00060 


0000 


FMTBYT, 





00061 


0000 


IFLG, 





00062 


0000 


GFLG, 





00063 


0000 


EFLG, 





00064 


0000 


OD, 





00065 


0000 


SCALE, 





00066 


0000 


PFACT, 





00067 


0000 


PFACTX, 





00070 


0000 


INESW, 





00071 


0000 


CHCH, 





00072 


0000 


FMTNUM, 





00073 


0000 


CTCINH, 





00074 


0320 


PTTY, 


TTY 


00075 


0000 







00076 


6001 


FPNXT, 


ICYCLE 






/DSRN IMAGE 


00077 


0000 


HAND, 





00100 


0000 


HCODEW, 





00101 


0000 


BADFLD, 





00102 


0000 


CHRPTR, 





00103 


0000 


CHRCTR, 





00104 


0000 


STBLK, 





00105 


0000 


RELBLK, 





00106 


0000 


TOTBLK, 





00107 


0000 


FFLAGS, 






001 10 

00111 7402 

00112 5510 

00113 0000 

00114 0000, 

00115 0000 
0200 



BUFFLD, 
BUFCDF, HLT 

JMP I 

FGPBF, 

BIOPTR, 

FEXIT 
PAGE 



BUFFLD 



/FLOATING AC OVERFLOW WORD 
/OPERAND OVFLOW WORD 

/*** FLOATING OPERAND REGISTER *** 



/FORMAT BYTE POINTER 

/I FOEMAT FLAG 

/G FORMAT FLAG 

/E FORMAT FLAG - SOMETIMES ON FOR 



/P-SCALE FACTOR 
/TEMP FOR PFACT 
/EXPONENT SWITCH 

/CONTAINS ACCUMULATED NUMERIC VALUE 
/TC INHIBIT FLAG 

/POINTER TO TTY HANDLER - USED BY 
/ SO FORMS CONTROL WILL WORK ON 
/USED AS INTERPRETER ADDRESS IF 



/HANDLER ENTRY POINT 

/HANDLER LOAD ADDR & FIELD + IOFFL 

/BUFFER ADDRESS AND FIELD 

/ACTUALLY A WORD POINTER 

/COUNTER - RANGES FROM -3 TO -1 

/STARTING BLOCK OF FILE 

/CURRENT RELATIVE BLOCK NUMBER 

/LENGTH OF FILE 

/FILE FLAGS: 

/BIT - "HAS BEEN WRITTEN" FLAG 

/BITS 1-2 - FORMATTED/UNFORMATTED 

/BIT 11 - "END-FILED" FLAG 

/ROUTINE TO SET DF TO BUFFER FIELD 



/THESE THREE WORDS ARE USED 

/TO FETCH AND STORE FLOATING POINT 

/FROM RANDOM MEMORY 
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/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8-V8 



PAGE 5 



00200 2203 

00201 6213 

00202 5603 

00203 2200 



00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 



/STARTUP CODE 

FTEMP2, ISZ .+3 

CDF CIF 10 

JMP I .+1 

VDATE, RTSLDR 



/ALSO USED AS I/O F.P. TEMPORARY 



/USED TO STORE OS/8 DATE 
/RTS ENTRY POINTS - "VERSION INDEPENDENT" 



00204 5777 VUERR, JMP I 



4434 
2023 
5634 
5776 
5775 
5774 
5773 
7330 
5772 
7330 
5771 
7330 
5770 
5767 
3000 
1317 
0000 
0000 
5766 
0000 
6203 
4630 
5227 



VARGER, 

VRENDO, 

VRFSV, 

VBAK, 

VENDF, 

VREW, 

VDEF, 

VWUO, 

VRUO, 

VWDAO, 

VRDAO, 

VWRITO, 

VREADO, 

VSWAP, 

VEXIT, 



JMS I 
ISZ 
JMP I 
JMP I 
JMP I 
JMP I 
JMP I 
AC4000 
JMP I 
AC4000 
JMP I 
AC4000 
JMP I 
JMP I 
TRAP3; 



V80R12, 0;0 



(USRERR /USER ERROR 

/** LOADER MUST DEFINE #ARGER AS 
ERR /LIBRARY ARGUMENT ERROR 
RWFLAG /END OF I/O LIST 
GETLMN /I/O LIST ARG ENTRY - COROUTINE 
(BKSPC /"BACKSPACE" ROUTINE 
(ENDFL /"END FILE" ROUTINE 
(HWIND /"REWIND" ROUTINE 
(DFINE /"DEFINE FILE" ROUTINE 

/UNFORMATTED WRITE 
CRWUNF /UNFORMATTED READ 

/DIRECT ACCESS WRITE 
(RWDACC /DIRECT ACCESS READ 

/FORMATTED (ASCII) WRITE 
(RWASCI /FORMATTED (ASCII) READ 
(SWAP /OVERLAY PROCESSOR 
CALXIT /"STOP" ROUTINE - ENTERED IN FPP 

/0;1 IF CPU IS A PDP-12 

(NULLJB /BACKGROUND JOB DISPATCHER 



VBACKG, JMP I 


CDF CIF /USED BY ROUTINE "ONQB" IN LIBRARY 
JMS I .-2 
JMP VBACKG 

/IOH GET VARIABLE ROUTINE. 

/THIS ROUTINE MAKES THE FORMATTED I/O PROCESSOR AND THE 

/PROGRAM CO-ROUTINES (DEF(COROUTINE) = 2 ROUTINES EACH 

/ IS A SUBROUTINE). ON ENTRY FAC=INPUT NUMBER 

/IF I/O IS A READ, ON RETURN FAC=OUTPUT NUMBER IF I/O 



00234 0000 

00235 5577 



GETLMN, 
VRETRN, JMP I 



[RETURN 
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All FORTRAN IV mass storage I/O is performed in terms of OS/8 blocks, 
including direct access I/O. Hence, all FORTRAN IV files conform to 
OS/8 standard ASCII file format. When a formatted READ or WRITE is 
requested, the data is converted to or from 8-bit binary representa- 
tion according to the FORMAT statement associated with the READ or 
WRITE. Standard OS/8 file format packs three 8-bit characters into 
two 12-bit words as follows: 



MASS 


STORAGE 


WORD 3 
bits 0-3 


WORD 1 


WORD 3 
bits 4-7 


WORD 2 



CORE 


WORD 


1 


WORD 


2 


WORD 


3 



Unformatted (i.e. direct access) READ and WRITE operations also 
operate on standard OS/8 format files, with each statement causing 
one FORTRAN IV record to be read or written. A FORTRAN IV record 
must contain at least one OS/8 block, and always contains an integral 
number of blocks. The number of variables contained in a 1-block 
record depends upon the content and format of the I/O list, as 
follows: 

Format type 



Number of 12-bit 
Words/Variable 


Number of 
Variables/Block 


3 








85 


3 








85 


6 








42 1/2 


6 








42 1/2 



Integer 

Real 

Double precision 

Complex 

It is possible to mix any types of data in an I/O list; however, no 
more than 85 variables may be stored in one OS/8 block. The number 
of blocks required for a FORTRAN IV record depends, therefore, upon 
the number of variables in the I/O list, and may be minimized by 
supplying every direct access WRITE with sufficient data to nearly 
fill an integral number of blocks without overflowing the last block. 
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The last word in every file block contains a block count sequence 
number and is not available for data storage. FRTS assigns block 
count numbers sequentially, beginning with 1, whenever a file is 
written. Block count numbers must be maintained by the user when 
FORTRAN IV files are created outside of an OS/8 FORTRAN IV environ- 
ment. While reading a binary file, FRTS checks the block count 
sequence numbers on input blocks and ignores any block whose sequence 
number is larger than expected. Sequence number checking is 
disabled during direct access READ operations. 

When FRTS is loaded and started, the initialization routines deter- 
mine what optional hardware, such as FPP-12 Floating Point Processor 
or KE8E Extended Arithmetic Element, is present in the running 
hardware configuration. The initialization routines then modify 
FRTS to use the optional hardware, if available. When an FPP is 
present in the system and it becomes desirable to disable the FPP 
under FRTS, this may be accomplished by changing the content of 
location 12621 from 6555 to 7200. The extended arithmetic element 
may be disabled in the same manner by changing the content of FRTS 
location 12623 from 7413 to 7200. These changes must be made before 
FRTS is started. The OS/8 monitor GET and ODT commands provide an 
excellent mechanism for changes of this type. 

The FRTS internal line printer handler uses a linked ring buffer for 
maximum I/O buffering efficiency. The buffer consists of several 
contiguous sections of memory, linked together by pointers. All of 
these buffer segments are located above 04000, so that the pointers 
are readily distinguishable from bufferred characters. The entire 
7400 page is included in the line printer ring buffer. If it 
becomes desirable to modify FRTS by patching or reassembly, most 
of the 07400 page may be reclaimed from the buffer by changing the 
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content of location 07402 from 7577 to 5164. This frees up locations 
07403 to 07577 for new code and still leaves about eighty character 
positions in the LPT ring buffer. 

Because FRTS executes with the processor interrupt system enabled, 
it may hang up on hardware configurations that include equipment 
capable of generating spurious program interrupts. In addition, 
any OS/8 I/O device handler that exits without clearing all device 
flags may cause troublesome interrupts when it is assigned as a 
FORTRAN I/O unit under FRTS. To counteract these potential 
problems, FRTS provides certain areas that are reserved for 
inclusion of user-generated code designed to clear device flags 
and/or inhibit spurious interrupts. 

A string of NOP instructions beginning at location 040 20 is 
executed during FRTS initialization, just before the interrupt 
system is enabled. When the /H option is specified to FRTS, the 
system halts after these NOPs have been executed and the interrupt 
system has been enabled. Another string of NOPs occupying the 
eight locations from 03746 to 03755 is executed after every call 
to an OS/8 device handler. Any of these NOP instructions may be 
replaced by flag-handling or interrupt-servicing code. If 
additional memory locations are required, they may be obtained by 
replacing some of the code from locations 04007 to 04017 with 
flag-handling code. Locations 04007-17 are used to clear flags 
associated with LAB-8/E peripheral devices . 

Due to memory limitations, it is not possible to add internal I/O 
device handlers to the four internal handlers supplied with the 
system. However, FORTRAN I/O unit 0, which is not defined by the ANSI 
standard, may be specified for terminal I/O via the internal console 
terminal handler. I/O unit is not re-assignable. 
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/FORTRAN 4 RUNTIME SYSTEM - R,L PAL8-V8 

/INTERRUPT DRIVEN I/O HANDLERS 



00236 
00237 
00240 
00241 
002 42 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 



00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 



0000 
0176 
7450 
5765 
6002 
3667 
1003 
7041 
1267 
7640 
5253 
1667 
6666 
7201 
6665 
1267 
3267 
1667 
7510 
5256 
7640 
4764 
0436 
6001 
5636 



LPT, 
LPTSNA, 





AND 

SNA 

JMP I 

IOF 

DCA I 

TAD 

CIA 

TAD 

SZA CLA 

JMP 

TAD I 

LLS 

CLA IAC 

LIE 

TAD 

DCA 

TAD I 

SPA 

JMP 

SZA CLA 

JMS I 

LPUHNG 

ION 

JMP I 



00267 5165 LPPUT, LPBUFR 



0000 
7450 
5765 
3236 
6002 
1006 
7640 
4764 
0502 
1236 
6026 
3006 
6001 
5670 



PTP, 



I 





SNA 

JMP 

DCA 

IOF 

TAD 

SZA CLA 

JMS I 

PPUHNG 

TAD 

PLS 

DCA 

ION 

JMP I 



[377 

(IOERR 

LPPUT 
LPGET 

LPPUT 

.+3 

LPPUT 



LPPUT 
LPPUT 
LPPUT 

.-3 

CHANG 



LPT 



(IOERR 
LPT 



/RING-BUFFERED 
/JUST IN CASE 
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LP08 OR LS8E 



/CANNOT BE USED FOR INPUT 



/IS LPT QUIET? 
/NO 

/YES - START "ER UP 

/ENABLE LPT INTERRUPTS 
/l IN AC, REMEMBER? 



/NEGATIVE NUMBERS ARE BUFFER LINKS 
/ANY ROOM LEFT IN BUFFER? 

/WAIT FOR LINE PRINTER 
/TURN INTERRUPTS BACK ON 
/RETURN 



/PAPER TAPE PUNCH HANDLER 

/INPUT IS ERROR 
/SAVE CHAR 



POCHR /IF PUNCH IS NOT IDLE, 

/WE DISMISS JOB 
(HANG 

/WAIT FOR PUNCH INTERRUPT 
LPT 



POCHR 
PTP 



/OUTPUT CHAR 

/SET FLAG NON-ZERO 



/*K* THE FOLLOWING ADDRESSES GET FALLEN INTO & MUST BE SMAL 



IFNZRO 
IFNZRO 
IFNZRO 
IFNZRO 
IFNZRO 



PPUHNG&7000 
TTUHNG&7000 
KBUHNG&7000 
RDUHNG&7000 
LPUHNG&7000 



-ERROR 
-ERROR 
-ERROR 
-ERROR 
<«-«-ERROR 
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/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8-V8 PAGE 7 

/INTERRUPT-DRIVEN PTR AND TELETYPE HANDLER 



00306 
00307 
00310 

0031 1 
00312 
00313 
00314 
00315 
00316 
00317 

00320 
00321 
00322 
00323 

0032 4 
00325 
00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00340 
00341 



0000 
7640 
5765 
6002 
6014 
4764 
0510 
1007 
6001 
5706 

0000 
6002 
7450 
5342 
3236 
1004 
7740 
4764 
0451 
1004 
7104 
7230 
1236 
7510 
6046 
3004 
6001 
5720 



PTR, 



TTY, 





SZA CLA 

JMP I 

IOF 

RFC 

JMS I 

RDUHNG 

TAD 

ION 

JMP I 



/CRUDE READER HANDLER 
(IOERR /OUTPUT ILLEGAL TO PTR 
/START READER 



(HANG 



RDRCHR 



PTR 




IOF 
SNA 

JMP KBD 
DCA LPT 
TAD TOCHR 
SMA SZA CLA 
JMS I (HANG 
TTUHNG 

TAD TOCHR 
CLL RAL 
CLA CML RAR 
TAD LPT 
SPA 
TLS 

DCA TOCHR 
TTYRET, ION 

JMP I TTY 



/HANG UNTIL COMPLETE 
/GET CHARACTER 

/RETURN 

/BUFFERS 2 CHARS ON OUTPUT, 1 ON 

/DELICATE CODE AHEAD 

/INPUT OR OUTPUT? 

/INPUT 

/OUTPUT - SAVE CHAR 

/GET TTY STATUS 

/G.T. MEANS A CHAR IS BACKED UP 

/WAIT FOR LOG JAM TO CLEAR 

/NO CHAR BACKED UP - SEE IF TTY 

/"BUSY" FLAG IN LINK - INTERRUPTS 

/COMPLEMENT OF BUSY IN SIGN 

/GET CHAR 

/IF TTY NOT BUSY, 

/OUTPUT CHAR 

/STORE POS OR NEG, BACKED UP 

/TURN INTERRUPTS BACK ON 

/AND LEAVE 
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00342 1005 KBD, TAD 

00343 7650 SNA CLA 

00344 4764 JMS I 

00345 0465 KBUHNG 

00346 1005 TAD 

00347 3236 DCA 

00350 3005 DCA 

00351 1236 TAD 

00352 5340 JMP 

00353 6554 KILFPP, FPHLT 

00354 2353 ISZ 

00355 5354 JMP 

00356 6552 FPICL 

00357 7430 SZL 

00360 5763 JMP I 

00361 6032 KCC 

00362 4434 CTLBER, JMS I 



KBDCHR /HAS A CHARACTER BEEN INPUT? 



(HANG 

KBDCHR 

LPT 

KBDCHR 

LPT 

TTYRET 



(7600 
ERR 



/NO - RUN BACKGROUND UNTIL ONE IS 
/GET CHARACTER 

/CHEAR CHARACTER BUFFER 

/RETURN WITH INTERRUPTS ON 

/BRING FPP TO A SCREECHING HALT 

/WAIT FOR IT TO STOP 

/CLEAN UP MESS HALT HAS MADE IN FPP 

/TC OR TB? 

/TC - HIYO SILVER, AWAY! 

/CLEAR KBD FLAG ON TB 

/*** THIS MAY BE DANGEROUS! ** 
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/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8-V8 
/INTERRUPT SERVICE ROUTINES 
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00400 
00401 
00402 
00403 

00404 
00405 
00406 

00407 
00410 
00411 

00412 
00413 
00414 

00415 
00416 
00417 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 

00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 



3322 
7010 
3323 
5207 

0000 
6203 
4604 

6551 
5215 
5314 

5314 
5314 
5314 

6661 
5240 
6662 
1403 
7650 
5314 
3403 
2003 
1403 
7510 
3003 
7450 
1403 
7440 
6666 
7200 
6661 
5314 
5217 

6041 
5252 
6042 
1004 
7540 
6046 
7740 
7130 
3004 
5314 



INTRPT, 
VINT, 



INTAC 



DCA 

RAR 

DCA 

JMP 

IFNZRO 



CDF CIF 

JMS I .-2 



INTLNK 

,+4 /** MUST BE AT 403 ** 

VINT-403 <«-«-«- CHANGE LOADER! ! !> 



FPUHNG, 
VDISMS, 

LPTEST, 
LPTLCF, 

JMPDIS, 



FPINT 

JMP 

JMP 



LPTEST 
DISMIS 



JMP DISMIS 
JMP DISMIS 
JMP DISMIS 



LPUHNG, 
NOTLPT, 



LSF 

JMP 

LCF 

TAD I 

SNA CLA 

JMP 

DCA I 

ISZ 

TAD I 

SPA 

DCA 

SNA 

TAD I 

SZA 

LLS 

CLA 

LSF 

JMP 

JMP 



NOTLPT 

LPGET 

DISMIS 
LPGET 
LPGET 
LPGET 

LPGET 

LPGET 



DISMIS 
LPTLCF 



TSF 

JMP NOTTTY 
TCF 

TAD TOCHR 
SMA SZA 
TLS 

SMA SZA CLA 
STL RAR 
DCA TOCHR 
TTUHNG, JMP DISMIS 



/USER INTERRUPT ROUTINE GOES HERE 

/CHECK FOR FPP DONE 
/ALWAYS GOES TO RESTRT 
/FOR USE BY USERS 



/CLEAR FLAG 

/CHECK FOR SPURIOUS INTERRUPT 

/GO AWAY IF SO 

/ZERO CHAR JUST OUTPUT 



/TAKE CARE OF BUFFER LINKS 

/MAKE SURE CHAR IS IN AC 
/IS THERE A CHARACTER? 
/YES - PRINT IT 

/CHECK FOR IMMEDIATE FLAG 
/NO - MAYBE RESTART PROGRAM 
/YES - LOOP 

/CHECK TTY 

/CLEAR FLAG 

/GET TTY STATUS 

/IF THERE IS A CHARACTER WAITING, 

/OUTPUT IT. 

/CHANGE "WAITING" TO "BUSY", 

/"BUSY" TO "IDLE". 
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/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8-V8 
/KBD AND PTP INTERRUPTS 
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00452 


6031 


NOTTTY, 


KSF 






00453 


5276 




JMP 




NOTKBD 


00454 


1175 




TAD 




[200 


00455 


6034 




KRS 






00456 


3005 




DCA 




KBDCHR 


00457 


1005 




TAD 




KBDCHR 


00460 


1377 




TAD 




(-202 


00461 


7110 




CLL 


RAR 




004S2 


7650 




SNA 


CLA 




00463 


5266 




JMP 




CTCCTB 


00464 


6032 




KCC 






00465 


5314 


KBUHNG, 


JMP 




DISMIS 


00466 


1073 


CTCCTB, 


TAD 




CTCINH 


00467 


7650 




SNA 


CLA 




00470 


5366 




JMP 




NOTINH 


00471 


1323 




TAD 




INTLNK 


00472 


7104 




CLL 


RAL 




00473 


1322 




TAD 




INTAC 


00474 


6244 




RMF 






00475 


5400 




JMP 


I 





00476 


6021 


NOTKBD, 


PSF 






00477 


5303 




JMP 




NOTPTP 


00500 


6022 




PCF 






00501 


3006 




DCA 




POCHR 


00502 


5314 


PPUHNG, 


JMP 




DISMIS 


00503 


6011 


NOTPTP, 


RSF 






00504 


5311 




JMP 




LPTERR 


00505 


1175 




TAD 




C200 


00506 


6012 




RRB 






00507 


3007 




DCA 




RDRCHR 


00510 


5314 


RDUHNG, 


JMP 




DISMIS 


00511 


6663 


LPTERR, 


LSE 






00512 


7410 




SKP 






00513 


6667 




LIF 






00514 


1323 


DISMIS, 


TAD 




INTLNK 


00515 


7104 




CLL 


RAL 




00516 


1322 




TAD 




INTAC 


00517 


6244 




RMF 






00520 


6001 




ION 






00521 


5400 




JMP 


I 





00522 


0000 


INTAC, 









00523 


0000 


INTLNK, 










/USE KRS TO FORCE PARITY BIT 
/AND ALSO SO THAT TC WILL STILL 

/CHECK FOR TC OR TB 



/YUP - TAKE SOME DRASTIC ACTION 
/DATA CHARACTER - CLEAR FLAG 



/ARE WE IN A HANDLER? 
/NO 

/YES - RETURN WITH INTERRUPTS OFF 
/TRUST IN GOD AND RTS 



/P.T. PUNCH INTERRUPT - CLEAR FLAG 
/CLEAR SOFTWARE FLAG 



/GET RDR CHAR 

/TEST FOR LP0S ERROR FLAG 
/DISA3LE LP08 INTERRUPTS IF ERROR 

/RESTORE AC AND LINK 

/RETURN FROM THE INTERRUPT 
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/FORTRAN 4 RUNTIME SYSTEM - R.L PAL8-V8 PAGE 11 

/BACKGROUND INITIATE/TERMINATE ROUTINE 



00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 



00544 
00545 
00546 
00547 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
00560 
00561 
00562 
00563 
00564 
00565 

00566 
00567 
00570 

00571 
00572 
00573 
00574 



00575 
00576 
00577 



0000 
1724 
3371 
6214 
1332 
3364 
6203 
1376 
3771 
1373 
7104 
1372 
6202 
6201 
6001 
5774 



1222 
3771 
1322 
3372 
1323 
3373 
1000 
3374 
6234 
0174 
1332 
3340 
6234 
4436 
3341 
2324 
7402 
5724 

1222 
3771 
5775 

0000 
0000 
0000 
0227 
0524 

0353 
5344 
7576 

0600 



HANG, 



/ALWAYS CALLED WITH INTERRUPTS OFFl 
/GET POINTER TO UNHANGING LOCATION 



TAD I HANG 

DCA UNHANG 
RDF 

TAD HCIDF0 

DCA HNGCDF 

HCIDF0, CDF CIF 

TAD <JMP RESTRT 

DCA I UNHANG 

TAD BACKLK 

CLL RAL 

TAD BACKAC 

CIF 

CDF 

ION 

JMP I BACKPC /INITIATE BACKGROUND 

COME HERE WHEN THE HANG CONDITION HAS GONE AWAY 

/RESTORE THE UNHANG LOCATION 

/SUSPEND THE BACKGROUND 



BAKCIF, 
BAKCDF, 



RESTRT, 



/GET FIELD CALLED FROM 

/SAVE FOR RETURN 

/CHANGE THE "JMP DISMIS" 
/TO A "JMP RESTRT" 

/SET UP BACKGROUND AC AND LINK 



HNGCDF, 



NOTINH, 



UNHANG, 
BACKAC, 
BACKLK, 
BACKPC, 
VHANG= 



TAD 

DCA I 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

RIB 

AND 

TAD 

DCA 

RIB 

J MS I 

DCA 

ISZ 

HLT 

JMP I 

TAD 
DCA I 
JMP I 







VBACKG 

HANG 

IFNZRO 



PAGE 



JMPDIS 

UNHANG 

INTAC 

BACKAC 

INTLNK 

BACKLK 



BACKPC 

[70 
HCIDF0 

BAKCIF 

MCDF 
BAKCDF 

HANG 

HANG 



/*K* OK SINCE BACKGROUND DOESN'T 



/INTERRUPTS ARE OFF - RETURN 



JMPDIS /IN CASE WE WERE HUNG, WE DON'T 
UNHANG /TO GET "UNHUNG" OUT OF THE ERROR 
(KILFPP /KILL FPP AND GO TO EXIT OR ERROR 



VHANG-0524 



<«-♦- CHANGE LOADERl> 
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The FRTS /P option provides a mechanism whereby the core image gener- 
ated from a FORTRAN program may be punched onto paper tape in binary 
loader format. This permits the loader image to be executed on a 
hardware configuration that does not include mass-storage devices. 
To use the /P option, specify /P to FRTS and assign a device or file 
as FORTRAN I/O unit 9. Assigning the paper tape punch as unit 9 
causes the image to be punched out directly; however, it may be de- 
sirable to direct the binary output to an intermediate file for later 
transfer to paper tape via OS/9 PIP. In any event, FRTS returns to 
the monitor once the core image has been transferred. 

The output file is a binary image of memory locations 00000 to 07577 
and 10000 up to the highest location used by the FORTRAN load. The 
content of each field is punched separately with its own checksum 
and leader/trailer. 

With the BIN loader resident in field 0, load the binary tape produced 
under the /P option by reading each segment separately and verifying 
the checksum as each memory field is loaded. When all segments have 
been read into memory, start execution at location 00200. The 
following restrictions apply: 

1. OS/8 device handlers which have been assigned FORTRAN I/O 
unit numbers are not necessarily punched out. For this 
reason, I/O unit assignments other than in the form /n=m 
should be avoided. 

2. With respect to the presence of an FPP and/or EAE, the con- 
figuration on which the image is punched must be identical 
to the configuration on which it is to be run. If the 
punching configuration contains hardware that is absent from 
the target configuration, this hardware must be disabled 
under FRTS. If the target configuration contains hardware 
that is absent from the punching configuration, the extraneous 
hardware will not be used. 

3. The statements STOP and CALL EXIT cause a core load produced 
under the /P option to halt. Any fatal error flagged during 
punching or execution causes error traceback followed by a 
halt. Do not press CONTinue in response to either of these 
machine halts. 
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A FORTRAN IV program is terminated in one of three ways: 

1. A fatal error condition is flagged (CTRL/B) is processed as 
a fatal error. 

2. CTRL/C is recognized, or the CPU is halted and re-started in 
07600. 

3. A STOP, CALL EXIT, or (under RALF) JSR #EXIT statement is 
executed. 

The sequence of events that results in program termination proceeds as 
follows: 



£ 



Fatal Error 
(CTRL/B) 



BRANCH TO 

ERROR 

ROUTINE 




CTRL/C 



STOP 
CALL EXIT 
JSR #EXIT 



EXECUTE IOF 



PRINT 
TRACEBACK 



£ 



SIMULATE 
END FILE ON 
ANY OPEN 
FILES 



LET I/O DE- 
VICE HANDLER 
PROCESS +C 



JMP 07605 




SET NORMAL 

TERMINATION 

FLAG 



Location 07605 traps back to FRTS 



© 



At point A, FRTS executes the following operations. 

1. Read termination routine into memory. 

2. Read OS/8 field resident from block 37 of SYS. 

3. Jump into termination routine at location 17400. 

4. Restore normal content of locations 07600 and 07605 (in OS/8 
resident) . 

5. If configuration is an in-core TD8E DECtape system, restore 
second part of TD8E handler from n7600 to 27600. 

6. Wait for TTY to finish all pending I/O. If BATCH is running, 
print LF on TTY and LPT. 

7. If normal termination flag is set, close any output files 
that were opened by the FRTS loader. 

8. Return to OS/8 monitor via location 07605. 
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/FORTRAN 4 RUNTIME SYSTEM - R.L 
6600 FPPKG= . 



PAL8-V8 PAGE 78 

/FOR EAE OVERLAY 



/23-BIT FLOATING PT INTERPRETER 

/W.J. CLOGHER, MODIFIED BY R.LARY FOR FORTRAN 



06600 
06616 

06617 
0662 
06621 
06622 
06623 
06624 



06625 
06626 
06627 
06630 
06631 
06632 
06633 
06634 
06635 
06636 
06637 
06640 
06641 
066 42 
06643 
06644 
06645 
066 46 
06647 
06650 
06651 
06652 
06653 
06654 
06655 
06656 
06657 
06660 
06661 
06662 
06663 
06664 



0000 
7160 

0000 
7240 
1044 
3044 
4542 
5617 



4777 
7413 
4776 
4304 
1044 
3044 
3304 
3054 
1045 
7650 
3044 
4334 
1056 
3057 
4334 
1054 
3046 
1304 
3045 
1045 
7004 
7710 
4217 
1053 
7710 
2046 
5265 
2045 
1045 
7510 
5775 
7200 



LPBUF2, ZBLOCK 
LPBUF3 

AL1BMP, 

STA 
TAD 
DCA 
J MS I 
JMP I 

/FLOATING MULTI 
DDMPY, JMS I 

SKP 
FFMPY, JMS I 

JMS 

TAD 

DCA 

DCA 

DCA 

TAD 

SNA 

DCA 

JMS 

TAD 

DCA 

JMS 

TAD 

DCA 

TAD 

DCA 

TAD 

RAL 

SPA 

JMS 

TAD 

SPA CLA 

ISZ 

JMP 

ISZ 

TAD 

SPA 

JMP I 

CLA 
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ACX 
ACX 
CAL1 
AL1BMP 

PLY-DOES 
(DARGET 

(ARGET 

MDSET 

ACX 

ACX 

MDSET 

AC2 

ACH 

CLA 

ACX 

MP24 

OPH 

OPL 

MP24 

AC2 

ACL 

MDSET 

ACH 

ACH 

CLA 

AL1BMP 

AC1 

ACL 

MDONE 

ACH 

ACH 

(SHR1 



/*K* UTILITY SUBROUTINE 



2 24X12 BIT MULTIPLIES 



/GET OPERAND 

/SET UP FOR MPY-OPX IN AC ON RETN. 

/DO EXPONENT ADDITION 

/STORE FINAL EXPONENT 

/ZERO TEM STORAGE FOR MPY ROUTINE 

/IS FAC=07 

/YES-ZERO EXPONENT 

/NO-MULTIPLY FAC BY LOW ORDER OPR. 

/NOW MULTIPLY FAC BY HI ORDER MULT 



/STORE RESULT BACK IN FAC 
/LOW ORDER 
/HIGH ORDER 

/DO WE NEED TO NORMALIZE? 



/YES-DO IT FAST 

/CHECK OVERFLOW WORD 

/HIGH BIT ON - ROUND RESULT 

/LOW ORDER OVERFLOWED - INCREMENT 

/CHECK FOR OVERFLOW TO 4000 0000 
/WE HANDLE A SIMILIAR CASE IN 
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06665 


3053 


06666 


2333 


06667 


7410 


06670 


4543 


06671 


1045 


06672 


7650 


06673 


3044 


06674 


1021 


06675 


7740 


06676 


1044 


06677 


7450 


06700 


5476 


06701 


7040 


06702 


4541 


06703 


5476 



MDONE, DCA AC1 

ISZ MSIGN 

SKP 

JMS I [FFNEG 

TAD ACH 

SNA CLA 

DCA ACX 

TAD DFLG 

SMA SZA CLA 

TAD ACX 

SNA 

JMP I FPNXT 

CMA 

JMS I CACSR 

JMP I FPNXT 



/ZERO OVERFLOW WDCDO I NEED THIS??? 
/SHOULD RESULT BE NEGATIVE? 
/NO 
/YES-NEGATE IT 

/A ZERO AC MEANS A ZERO EXPONENT 



/D.P. INTEGER MODE? 
/WITH ACX LESS THAN 0? 



/NO - RETURN 

/UN-NORMALIZE RESULT 
/RETURN 
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/MDSET-SETS UP SIGNS FOR MULTIPLY AND DIVIDE 

/ALSO SHIFTS OPERAND ONE BIT TO THE LEFT. 

/EXIT WITH EXPONENT OF OPERAND IN AC FOR EXPONENT 

/CALCULATION-CALLED WITH ADDRESS OF OPERAND IN AC AND 

/DATA FIELD SET PROPERLY FOR OPERAND. 



06704 

06705 

06706 

06707 

06710 

06711 

0S712 

06713 

06714 

06715 

06716 

06717 

06720 

06721 

06722 

06723 

06724 

06725 

06726 

06727 

06730 

06731 

06732 

06733 



0000 

7344 

3333 

1056 

7700 

5314 

4774 

2333 

1057 

7104 

3057 

1056 

7004 

3056 

3053 

1045 

7700 

5331 

4543 

2333 

7000 

1055 

5704 

0000 



MDSET, 



LEV, 
MSIGN, 



CLA CLL 

DCA 

TAD 

SMA 

JMP 

JMS I 

ISZ 

TAD 

CLL 

DCA 

TAD 

RAL 

DCA 

DCA 

TAD 

SMA 

JMP 

JMS I 

ISZ 

NOP 

TAD 

JMP I 





CMA RAL 

MSIGN 

OPH 

CLA 

.+3 

(OPNEG 

MSIGN 

OPL 

RAL 

OPL 

OPH 

OPH 

AC1 

ACH 

CLA 

LEV 

[FFNEG 

MSIGN 

OPX 
MDSET 



/SET SIGN CHECK TO -2 

/IS OPERAND NEGATIVE? 

/NO 

/YES-NEGATE IT 

/BUMP SIGN CHECK 

/AND SHIFT OPERAND LEFT ONE BIT 



/CLR. OVERFLOW WORF OF FAC 
/IS FAC NEGATIVE 

/NO-GO ON 

/YES-NEGATE IT 

/BUMP SIGN CHECK 

/MAY SKIP 

/EXIT WITH OPERAND EXPONENT IN AC 
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/24 BIT BY 12 BIT MULTIPLY. MULTIPLIER IS IN OPL 
/MULTIPLICAND IS IN ACH AND ACL 
/RESULT LEFT IN MDSET, AC2, AND AC1 



06734 
06735 
06736 
06737 
06740 
06741 
06742 
06743 
06744 
06745 
06746 
06747 
06750 
06751 
06752 
06753 
06754 
06755 
06756 
06757 
06760 
06761 

06762 
06763 
06764 
06765 
06766 
06767 
06770 
06771 
06773 
06774 
06775 
06776 
06777 



0000 
1373 
3055 
1057 
7440 
5345 
3053 
5734 
1057 
7010 
3057 
7420 

5356 
1054 
1046 
3054 
7024 
1045 
1304 
7010 
3304 
1054 

7010 
3054 
1053 
7010 
3053 
2055 
5344 
5734 
7764 
7203 
7110 
6514 
6460 
7000 



MPLP, 
MPLP1, 



MP24, 

TAD 
DCA 
TAD 
SZA 
JMP 
DCA 
JMP 
TAD 
RAR 
DCA 
SNL 
JMP 
TAD 
TAD 
DCA 
CML 
TAD 

MPLP2, TAD 
RAR 
DCA 
TAD 
RAR 
DCA 
TAD 
RAR 
DCA 
ISZ 
JMP 
JMP 



RAL 



(-14 

OPX 

OPL 

MPLP1 
AC1 
MP24 
OPL 

OPL 

MPLP2 
AC2 
ACL 
AC2 

ACH 
MDSET 

MDSET 
AC2 

AC2 
AC1 

AC1 
OPX 
MPLP 
MP24 



/SET UP 12 BIT COUNTER 

/IS MULTIPLIER=0? 

/NO-GO ON 

/YES-INSURE RESULT=0 

/RETURN 

/SHIFT A BIT OUT OF LOW ORDER 

/OF MULTIPLIER AND INTO LINK 

/WAS IT A 1? 

/NO - - JUST SHIFT PARTIAL PROD 
/YES-ADD MULTIPLICAND TO PARTIAL 
/LOW ORDER 

/*K* NOTE THE "SNL" 5 WORDS BACK! 
/HI ORDER 

/NOW SHIFT PARTIAL PROD. RIGHT 1 



/OVERFLOW TO AC I 

/DONE ALL 12 MULTIPLIER BITS? 

/NO-GO ON 

/YES-RETURN 



PAGE 
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/DIVIDE-BY-ZERO ROUTINE - MUST BE AT BEGINNING OF PAGE 

/DIVIDE BY NON-FATAL 
/GIVE ERROR MSG 

/RETURN A VERY LARGE POSITIVE NUM 



07000 


2035 


DBAD, 


ISZ 


FATAL 


07001 


4434 




JMS I 


ERR 


07002 


1200 




TAD 


DBAD 


07003 


3044 




DCA 


ACX 


07004 


7332 




AC2000 




07005 


5325 




JMP 


FD 
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/FLOATING DIVIDE - USES DI VIDE-AND-CORRECT METHOD 



27006 


4777 


DDDIV, 


JMS I 


(DARGET 


07007 


7410 




SKP 




07010 


4776 


FFDIV, 


JMS I 


CARGET 


07011 


4775 




JMS I 


CMDSET 


07012 


7041 




CMA 


IAC 


07013 


1044 




TAD 


ACX 


07014 


3044 




DCA 


ACX 


07015 


1056 




TAD 


OPH 


07016 


7141 




CLL CMA 


IAC 


07017 


3056 




DCA 


OPH 


07020 


4231 




JMS 


DV24 


07021 


1046 




TAD 


ACL 


07022 


3053 




DCA 


AC1 


07023 


1057 




TAD 


OPL 


07024 


7650 




SNA CLA 




07025 


5327 




JMP 


DVL2 


07026 


1374 




TAD 


C-15 


07027 


3231 




DCA 


DV2 4 


07030 


5267 




JMP 


DVLP1 






/DIVIDE 


ROUTINE 


- CACH, 


07 031 


0000 


DV24, 







07032 


1045 




TAD 


ACH 


07033 


1056 




TAD 


OPH 


07034 


7630 




SZL 


CLA 


07035 


5200 




JMP 


DBAD 


07036 


1374 




TAD 


C-15 


07037 


3054 




DCA 


AC2 


07040 


5251 




JMP 


DV1 


07041 


1045 


DV2, 


TAD 


ACH 


07042 


7004 




RAL 




07043 


3045 




DCA 


ACH 


07044 


1045 




TAD 


ACH 


07045 


1056 




TAD 


OPH 


07046 


7430 




SZL 




07047 


3045 




DCA 


ACH 


07050 


7200 




CLA 




07051 


1046 


DV1, 


TAD 


ACL 


07052 


7004 




RAL 




07053 


3046 




DCA 


ACL 


07054 


2054 




ISZ 


AC2 


07055 


5241 




JMP 


DV2 


07056 


5631 




JMP I 


DV2 4 



/GET OPERAND 

/GO SET UP FOR DIVIDE-OPX IN AC 

/NEGATE EXP. OF OPERAND 

/ADD EXP OF FAC 

/STORE AS FINAL EXPONENT 

/NEGATE HI ORDER OP. FOR USE 

/AS DIVISOR 

/CALL DIV. — CACH+ACD/OPH 
/SAVE QUOT. FOR LATER 



/AVOID MULTIPLYING BY 
/SET COUNTER FOR 12 BIT MULTIPLY 
/TO MULTIPLY QUOT. OF DIV. BY 
/LOW ORDER OF OPERAND COPL) 



CACH,ACL)/OPH = ACL REMAINDER REM 



/CHECK THAT DIVISOR IS .GT. 
/DIVISOR IN OPH CNEGATIVE) 
/IS IT7 

/NO-DIVIDE OVERFLOW 
/YES-SET UP 12 BIT LOOP 

/GO BEGIN DIVIDE 

/CONTINUE SHIFT OF FAC LEFT 

/RESTORE HI ORDER 

/NOW SUBTRACT DIVISOR FROM HI ORDER 

/DIVIDEND 

/GOOD SUBTRACT? 

/YES-RESTORE HI DIVIDEND 

/NO-DON'T RESTORE--OPH.GT.ACH 

/SHIFT FAC LEFT 1 BIT-ALSO SHIFT 

/l BIT OF QUOT. INTO LOW ORD OF ACL 

/DONE 12 BITS OF QUOT? 
/NO-GO ON 
/YES-RETN W/AC2=0 
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/DIVIDE ROUTINE CONTINUED 
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07057 3057 MP12L, DCA OPL /STORE BACK MULTIPLIET 

07060 1054 TAD AC2 /GET PRODUCT SO FAR 

07061 7420 SNL /WAS MULTIPLIER BIT A 1? 

07062 5265 JMP .+3 /NO-JUST SHIFT THE PARTIAL PRODUCT 

07063 7100 CLL /YES-CLEAR LINK AND ADD MULTIPLICA 

07064 1046 TAD ACL /TO PARTIAL PRODUCT 

07065 7010 RAR /SHIFT PARTIAL PRODUCT-THIS IS HI 

07066 3054 DCA AC2 /RESULT-STORE BACK 

07067 1057 DVLP1, TAD OPL /SHIFT A BIT OUT OF MULTIPLIER 

07070 7010 RAR /AND A BIT OR RESLT. INTO IT CLO 

07071 2231 ISZ DV24 /DONE ALL BITS? 
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07072 
07073 
07074 
07075 
07076 
07077 
07100 
07101 
07102 
07103 
07104 
07105 
07106 
07107 
07110 
07111 
07112 
07113 
07114 
07115 
07116 
07117 
07120 
07121 
07122 
07123 
07124 
07125 
07126 

07127 
07130 



5257 
7141 
3046 
7024 
1054 
7161 
1045 
7430 
5331 

3045 
4231 
1053 
7500 
5325 
7100 
2046 
7410 
7001 
7010 
3045 
1046 
7010 
304S 
2044 
7000 
1045 
5306 
3045 
5773 



DVL3, 
DVL1, 



SHR1, 



FD, 



3046 DVL2, 
5304 



J MP 
CLL 
DCA 
CML 
TAD 
STL 
TAD 
SZL 
J MP 

DCA 
J MS 
TAD 
SNA 
JMP 
CLL 
ISZ 
SKP 
IAC 
RAR 
DCA 
TAD 
RAR 
DCA 
ISZ 
NOP 
TAD 
JMP 
DCA 
JMP 

DCA 
JMP 



CIA 



CIA 



MP12L 

ACL 
RAL 
AC2 

ACH 

DVOPS 
ACH 
DV2 4 
AC1 

FD 

ACL 



ACH 
ACL 

ACL 
ACX 

ACH 
DVL1+1 
ACH 
(MDONE 

ACL 
DVL3 



/NO-LOOP BACK 

/YES-LOW ORDER PROD. OF QUOT. X 

/NEGATE AND STORE 

/PROPAGATE CARRY 

/NEGATE HI ORDER PRODUCT 

/COMPARE WITH REMAINDER OF FIRST 

/WELL? 

/GREATER THAN REM. -ADJUST QUOT OF 

/OK - DO (REM - (Q*OPD) / OPH 

/DIVIDE BY OPH (HI ORDER OPERAND) 

/GET QUOT. OF FIRST DIV. 

/IF HI ORDER BIT SET-MUST SHIFT 1 

/NO-ITS NORMALIZED-DONE 

/ROUND AND SHIFT RIGHT ONE 

/DOUBLE PRECISION INCREMENT 

/STORE IN FAC 

/SHIFT LOW ORDER RIGHT 

/STORE BACK 
/BUMP EXPONENT 



/IF FRACT WAS 77777777 WE MUST 
/STORE HIGH ORDER RESULT 
/GO LEAVE DIVIDE 

/COME HERE IF LOW-ORDER QUO=0 
/SAVE SOME TIME 
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07131 

07132 

07133 

07134 

07135 

07136 

07137 

07140 

07141 

07142 

07143 

07144 

07145 

07146 

07147 

07150 

07151 

07152 

07153 

07154 

07155 

07156 

07157 



7041 
3045 
7100 
1056 
1045 
7420 
5344 
3045 
7040 
1053 
3053 
7300 
1045 
7450 
3046 
3045 
4231 
1046 
7141 
3046 
7420 
7040 
5305 



/ROUTINE TO ADJUST QUOTINET OF FIRST DIVIDE (MAYBE) WHEN 
/REMAINDER OF THE FIRST DIVIDE IS LESS THAN QUOT*OPL 



DVOPS, 



DVOP1, 



DV0P2, 



CMA 


IAC 


DCA 


ACH 


CLL 




TAD 


OPH 


TAD 


ACH 


SNL 




JMP 


DVOP1 


DCA 


ACH 


CMA 




TAD 


AC1 


DCA 


AC1 


CLA 


CLL 


TAD 


ACH 


SNA 




DCA 


ACL 


DCA 


ACH 


JMS 


DV2 4 


TAD 


ACL 


CLL 


CMA IAC 


DCA 


ACL 


SNL 




CMA 




JMP 


DVL1 



/NEGATE AND STORE REVISED REMAINDER 



/WATCH FOR OVERFLOW 

/OVERFLOW-DON'T ADJUST QUOT. OF 1 
/NO OVERFLOW-STORE NEW REM. 
/SUBTRACT 1 FROM QUOT OF 
/FIRST DIVIDE 



/GET HI ORD OF REMAINDER 

/IS IT ZERO? 

/YES-MAKE WHOLE THING ZERO 

/DIVIDE EXTENDED REM. BY HI DIVISOR 
/NEGATE THE RESULT / 



/IF QUOT. IS NON-ZERO, SUBTRACT 
/ONE FROM HIGH ORDER QUOT. 
/GO TO IT 
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07160 


0000 


LPBUF3, 


ZBLOCK 


07172 


7316 




LPBUF4 


07173 


6665 






07174 


7763 






07175 


6704 






07176 


6514 






07177 


6460 








7200 




PAGE 
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/"NRMFAC" AND "OPNEG" MUST BE AT AND 3 ON PAGE 



07200 
07201 
07202 

07203 
07204 
07205 
07206 
07207 
07210 
07211 
07212 
07213 



07214 
07215 
07216 
07217 
07220 
07221 
07222 
07223 
07224 
07225 
07226 
07227 
07230 
07231 
07232 
07233 
07234 
07235 
07236 
07237 
07240 
07241 
07242 
07243 
07244 
07245 



3053 
4271 
5476 

0000 
1057 
7141 
3057 
7024 
1056 
7141 
3056 
5603 



NRMFAC, 



OPNEG, 



DCA 
JMS 
J MP 



TAD 

CLL 

DCA 

CML 

TAD 

CLL 

DCA 

JMP 



AC1 

FFNOR 

FPNXT 



OPL 

CMA I AC 

OPL 

RAL 

OPH 

CMA I AC 

OPH 

I OPNEG 



/KILL OVERFLOW BIT 



/ROUTINE TO NEGATE OPERAND 
/GET LOW ORDER 
/NEGATE AND STORE BACK 

/PROPAGATE CARRY 

/GET HI ORDER 

/NEGATE AND STORE BACK 



/FLOATING SUBTRACT AND ADD 
/ 



FFADD, 



4777 FFSUB, 

4203 

7410 

4777 

1056 

7650 

5476 

1045 

7650 

5236 

1044 

7141 

1055 

7540 

5243 

7041 

4246 

4541 

1055 

3044 

4537 

4271 

5476 

4541 

4246 

5236 



DOADD, 



FACR, 



JMS 
JMS 
SKP 
JMS 
TAD 
SNA 
JMP 
TAD 
SNA 
JMP 
TAD 
CLL 
TAD 
SMA 
JMP 
CMA 
JMS 
JMS 
TAD 
DCA 
JMS 
JMS 
JMP 
JMS 
JMS 
JMP 



I (ARGET 
OPNEG 



I (ARGET 

OPH 

CLA 
I FPNXT 

ACH 

CLA 

DOADD 

ACX 
CMA IAC 

OPX 

SZA 

FACR 

IAC 

OPSR 
I [ACSR 

OPX 

ACX 
I [OADD 

FFNOR 
I FPNXT 

[ACSR 

OPSR 

DOADD 



I 



/PICK UO THE OP. 
/NEGATE OPERAND 

/PICK UP OPERAND 
/IS OPERAND = 

/YES-DONE 
/NO-IS FAC=0? 

/YES-DO ADD 

/NO-DO EXPONENT CALCULATION 



/WHICH EXP. GREATER? 
/OPERANDS-SHIFT FAC 
/FAC'S-SHIFT OPERAND=DIFFRNCE+l 

/SHIFT FAC ONE PLACE RIGHT 
/SET EXPONENT OF RESULT 

/DO THE ADDITION 

/NORMALIZE RESULT 

/RETURN 

/SHIFT FAC = DIFF.+l 

/SHIFT OPR. 1 PLACE 

/DO ADDITION 
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/OPERAND SHIFT RIGHT-ENTER WITH POSITIVE COUNT-1 IN AC 



07246 
07247 
07250 
07251 
07252 
07253 
07254 
07255 
07256 
07257 
07260 
07261 
07262 
07263 
07264 
07265 
07266 
07267 
07270 

07271 
07272 
07273 
07274 
07275 
07276 
07277 
07300 
07301 
07302 
07303 
07304 
07305 
07306 
07307 
07310 
07311 
07312 
07313 
07314 
07315 

07316 
07376 
07377 



0000 
7040 
3052 
1056 
7100 
7510 
7020 
7010 
3056 
1057 
7010 
3057 
2055 
7000 
2052 
5251 
7010 
3054 
5646 

0000 
1045 
7450 
1046 
7450 
1053 
7650 
5313 
7332 
1045 
7440 
5307 
1046 
7640 
7710 
5314 
4534 
5301 
3044 
3053 
5671 

0000 
7400 
6514 
7400 



OPSR, 

CMA 
DCA 

L0P2, TAD 
CLL 
SPA 
CML 
RAR 
DCA 
TAD 
RAR 
DCA 
ISZ 
NOP 
ISZ 
J MP 
RAR 
DCA 
JMP 

FFNOR, 

TAD 
SNA 
TAD 
SNA 
TAD 
SNA 
JMP 

NORMLP, CLA 
TAD 
SZA 
JMP 
TAD 
SZA 
SPA 
JMP 
JMS 
JMP 

ZEXP, DCA 

FFNORR, DCA 
JMP 



AC0 
OPH 



OPH 
OPL 

OPL 
OPX 

AC0 
L0P2 

AC2 

OPSR 



ACH 

ACL 

AC1 
CLA 
ZEXP 
CLL CML RTR 
ACH 

.+3 

ACL 

CLA 

CLA 

FFNORR 
I [AL1BMP 

NORMLP 

ACX 

AC 1 
I FFNOR 



/- (COUNT+1) TO SHIFT COUNTER 

/GET SIGN BIT 
/TO LINK 

/WITH HI MANTISSA IN AC 

/SHIFT IT RIGHT, PROPAGATING SIGN 

/STORE BACK 



/STORE LO ORDER BACK 
/INCREMENT EXPONENT 

/DONE ALL SHIFTS? 

/NO-LOOP 

/SAVE 1 BIT OF OVERFLOW 

/IN AC2 

/YES-RETN. 

/ROUTINE TO NORMALIZE THE FAC 

/GET THE HI ORDER MANTISSA 

/ZERO? 

/YES-HOW ABOUT LOW? 

/LOW=0, IS OVRFLO BIT ON? 

/#=0-ZERO EXPONENT 
/NOT 0-MAKE A 2000 IN AC 
/ADD HI ORDER MANTISSA 
/HI ORDER = 6000 
/NO-CHECK LEFT MOST DIGIT 
/YES-6000 OK IF LOW=0 

/2, 3, 4, 5, ARE LEGAL LEFT MOST DIGS. 
/FOR NORMALIZED #-(+2000=4,5,6,7) 
/SHIFT AC LEFT AND BUMP ACX DOWN 
/GO BACK AND SEE IF NORMALIZED 



/DONE W/NORMALIZE 
/RETURN 



CLEAR AC1 



LPBUF4, ZBLOCK 60 
LPBUFE 

PAGE 
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CHAPTER 5 



LIBRA AND FORLIB 



The binary output of an assembly under RALF is called a RALF 
module. Every RALF module consists of an External Symbol Dictionary 
(or ESD) and associated text. The ESD lists all global symbols 
defined in the assembly, while the text contains the actual binary 
output along with relocation data. 

There are three major classes of global symbols. Entry points are 
global symbols defined in a module and referenced by code in other 
modules. Thus, entry points include the names of all modules and 
the names of all globally callable subroutines within modules. 
Externs are global symbols that are referenced in a module but not 
defined in that module. For example, the entry point of module A 
would appear as an extern if referenced in module B. The COMMON area 
comprises a third class of global symbols including all global 
symbols which define COMMON. 

A FORTRAN IV library is a specially formatted file, created with 
LIBRA, consisting of a library catalog (which lists section names 
and entry points of library modules) and a set of RALF modules, 
perhaps interspersed with empty subfiles. The loader uses one 
such library, specified by the user, to resolve externs while 
building a loader image file. The general structure of a FORTRAN IV 
library is: 



CATALOG 



MODULE 



FREE 
AREA 



MODULE 



MODULE 



etc. 
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LIBRA is a very simple program, basically a file-to-file copy inside 
several nested loops. The outer loop begins at START, and calls the 
command decoder for specification of the library and input files. If 
no library is specified, the previous library name is used (initially 
this is SYS:FORLIB.RL) . If a new name is given, but no extension is 
specified, .RL is forced. A check is made to verify that the spec- 
ified library is on a file-structured device, and the handler is 
FETCHed. 

At ZTEST, the /Z switch is tested. If it was set, control passes to 
NEWLIB to create a new library. Otherwise, an attempt is made to find 
an old library of the specified name on the device. If it fails, 
control passes to NEWLIB. Otherwise, the catalog of the old library 
is read and scanned to determine the starting block of available 
space. This is stored at LAVAIL. Control then passes to GETINF to 
begin reading input files. 

If /Z was set, or the specified library isn't found, a new library 
is entered at NEWLIB, and an empty catalog is written. Control passes 
to GETINF. There, a check is made to determine whether input is 
presently coming from another library. If it is, control passes to 
INLIB to obtain the next module from the library. Otherwise, the 
next input file is obtained from the command decoder area in field 1, 
and if one exists, control passes to FTCHIN to load the handler. If 
there is none, the /C switch is tested. If it is not set, control 
is passed to LCLOSE to close the library. If it is set, however, 
the command decoder is recalled to obtain a continuation of the 
preceding input line, and control returns to NXTINF to look in the 
command decoder area. 
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At FTCHIN, the unit, starting block, and length of the next input 
file are obtained from the command decoder area, the appropriate 
device handler is fetched, and at LUKMOD, the input file is read to 
ensure that it is either a module or a library. If a library, control 
passes to GOTLIB, which sets INLSW and goes to INLIB to obtain the 
first module from the library. Otherwise, the length is checked 
against the available length in the library, to ensure that this 
module can be fit in, and control goes to NXTEBK to read the ESD. 

At INLIB, the catalog of the library being input is read, and scanned 
until a module is found with a starting block greater than the start- 
ing block of the last input module (in the case of the first module 
in a library, MODBLK, which normally contains the starting block of 
a module, contains the starting block of the library, so this scan 
yields the starting block of the first module in the library) . When 
the next module has been found, control returns to LUKMOD to check 
the length of the module against the available length in the library. 

At NXTEBK, the end of the input module is scanned for entry point and 
section names. Whenever one is found, the catalog of the output 
library is scanned for a matching name. If a match is found, control 
passes to GOTMAT, which prints the duplicated name, and if the /I 
switch is set, asks the operator which name to keep. If he types N, 
for new, control passes to DLETO to delete the old name. Otherwise, 
control is passed to ESDLND to find the next entry point or section 
name in the input. If /I is not set, /R is tested. If it is not set, 
control is passed to ESDLND. If it is, control flows into DELTO, 
where the old name is cleared, and the rest of the catalog is scanned 
to find the first available name slot. Control then passes to INSERT. 
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If no match was found, the /I switch is tested. If it was set, the 

operator is asked whether to include the name. If he types, N, for 

no, control is passed to ESDLND. Otherwise, or if /I was not set, a 

pointer is set up for the new name, and control passes to INSERT, 
where the new name is added to the catalog. 

When the entire ESD has been scanned, INCLUD is tested to determine 
whether any name has been included in the catalog, and assuming at 
least one has, the module is copied into the' library, and LAVAIL is 
updated to indicate the next available block in the library, Control 
returns to GETINF for another module. 

LCLOSE receives control whenever the end of the input file string is 
reached and /C is not set. Here, any remaining changes in the library 
catalog are written, and if a new library was entered, it is closed. 
Control passes to CATLST, to create a catalog listing. The second 
output file, if any was specified, is opened, a title is output to it, 
and at PRCAT, the entire contents of the catalog are listed. When 
this process is complete, the output file is closed, and control 
returns to start for more command decoder input. 
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User-coded modules may be added to the system library or incorporated 
in a new library provided that entry points, variable storage alloca- 
tions, calling sequences, error conditions and the like are handled 
with care. 

Every library module must have a unique section (and entry) name(s). 
The library supplied by DEC uses the character # before names where 
duplication in the FORTRAN program may be possible. Note that this 
character is acceptable to RALF, but is illegal in a FORTRAN source. 
If more than one entry is required to the routine, they should be 
listed as such using the pseudo-op ENTRY before they are encountered 
as tags in the code. Thus, if a double precision tangent routine is 
being written, it may be helpful to have an entry for a double pre- 
cision co-tangent calculation also. Appropriate code would be: 

SECT DTAN 
JA #DTAN 
ENTRY DCOT 
JA #DCOT 

• 

#DCOT , 
#DTAN, 

When routines will handle double precision or complex values, allocate 
six words for their storage. Such routines can switch between the 
STARTF (3 word format) and STARTE (6 word format) pseudo-ops as re- 
quired, being careful to define variables of the proper length to 
keep track of temporary locations. 
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All user-written library routines are called by a JSR in STARTF mode. 
Depending on the type of function, the routine must be coded to exit 
as follows in order to return the result to the program: 



Single precision 

(integer, real and logical) 

FLDA ANSWER 
JA RETURN 

Double precision: 

FLDA ANSWER 
JA RETURN 

Complex: 



EXTERN #CAC 
STARTE 
FLDA ANSWER 
FSTA #CAC 
JA RETURN 



Answer in AC in STARTF mode 



/In STARTF mode 
/3 word result 

Answer in AC in STARTE mode 

/In STARTE mode 
/6 word result 

Answer in location #CAC in 
STARTE mode 

/Real part in first 3 words 
/Imaginary in last 3 words 
/Exit in STARTE mode 
/6 word result 



Routines should conform to the FPP FORTRAN calling sequence. An 



example of that sequence follows : 

SECT DTAN 
JA #DTAN 
TEXT +DTAN + 



DTANXR, SETX XRDTAN 



SETB BPDTAN 

BPDTAN, F 0.0 
XRDTAN, F 0.0 

ORG 10*3+BPDTAN 

FNOP 

JA DTANXR 



DTNRTN , JA . 
BASE 

#DTAN, STARTD 

FLDA 10*3 
FSTA DTNRTN 



/Sector name 

/Jump to Start of Function 
/6 characters for trace 
/back feature must be 
/immediately before index 
/register assignment. 
/This tag referenced when 
/returning to reset base 
/page and index registers 
/if this routine called. 

/3 words each 

/These locations may be 

/used for temporary storage or 

/If this routine is called, 

/will set up return to it. 



/Return to calling program 
/Still on caller's base page 
/Start of subroutine 
/Get jump to caller's return jump 
/Save for return from this routine 
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FLDA 

SETX XRDTAN 

SETB BPDTAN 
BASE BPDTAN 
FSTA TEMP 
LDX 1,1 
FLDA% TEMP,1 
FSTA TEMP 
STARTE 
FLDA% TEMP 
FSTA TEMP 



/Get next location in caller's 

/routine (pointer to argument list) 

/Change index registers to this 

/routine ' s 

/Change base page to this routine's 

/Change base page to this routine's 

/Save pointer 

/Set up XRL 

/Get address of argument list 

/Save it 

/A double precision routine 

/Get variable 

/Save variable 



/Calculate result 



FLDA ANSWER 
JA DTNRTN 



/Load answer 
/Exit 



The following conventions must be observed to return to the calling 
program at the correct location, to permit the error trace back 
feature to function properly, and to preserve index registers and 
base page integrity. 

Locations and 30 of the called (user-coded) program are determined 
by a statement in the form ORG 10*3+BPAGE which must be followed by 
a two-word jump to the index register and base page assignment in- 
structions JA BPXR. In the above example, the code is: 

ORG 10*3+BPDATN 

FNOP 

JA DTANXR 

By saving the contents of location 30 of the calling program (FLDA 

10*3, FSTA RETURN) for the return exit, the called program executes 

(when control is returned to it) a JA BPXR to its base page and index 

register assignment statement. In the calling program this resets 

the index registers and base page and then returns to execute the 

instruction in the calling program. In the tangent example above, 

the code is: 
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FLDA 10*3 
FSTA DTNRTN 

which creates the instruction 
JA xxx 

at the tag DTNRTN, where xxx is the location in the calling routine 
whose function corresponds to DTANXR in DTAN. 

When called, the routine must assign its own base page and index 
registers (SETX XROWN, SETB BPOWN) . If arguments are to be passed 
to the called routine, a scheme such as illustrated above permits 
any number of arguments to be passed from the calling program and 
saved on the base page of the called program, in this case just 
two arguments. 

The corresponding code for the calling program (as created by the 
compiler) is: 

EXTERN DTAN 

JSR DTAN 

JA .+4 /Jump past all arguments 

JA A /Argument 

FSTA Q /Save result in some variable 

The FORTRAN for Such code is: 

Q = DTAN (A) 
The calling sequence is also discussed in Chapter 2. 

To permit the error trace back feature to function properly, a TEXT 
statement followed by a six alphanumeric character name is required 
immediately before the index register and base page assignment 
statements. Thus, if the cotangent routine includes a JSR TAN and an 
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unacceptable argument is passed to the tangent function, the trace 

back indicates the location of the problem by a sequence such as: 

DIVO MAIN 
ARGUMENT 
7777 SIN 
0000 TAN 
0000 COT 
0007 MAIN 
(Line numbers are not relevant in RALF modules such as TAN and SIN: 

they are meaningful only in FORTRAN source programs.) 



A new library routine may call other new or existing library routines 
as part of its function, as well as the error handling function of 
the run-time system. To invoke the error message program, code such 
as the following is required: 

EXTERN #ARGER 
MERROR, TRAP 4 #ARGER 

Then any condition encountered in the program that is an error should 
jump to MERROR. For example, if an argument of <0 is illegal, it 
could be examined and handled as follows: 

FLDA% ARG2 

JLE MERROR /<0 error 

FSTA NEXT / Save non-zero value 

In this case, the TRAP4 #ARGER at MERROR will produce the message 

BAD ARG DTAN nnnn followed by traceback and program termination. 

If a new library routine would like to use an existing library routine, 

a JSR to that routine is required. The sequence for passing arguments 
is: 



EXTERN 


AT AN 2 




JSR 


ATAN2 




JA 
JA 
JA 
FSTA 


.+6 

A 

B 

ANSWER 


/Execute upon exit from 
/1st arg 
/2nd arg 
/Save answer 
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The arguments must be referenced in the order expected by the called 
routine and must agree in number and type. The following routines 
can be used in this manner: 



ROUTINE 

AMOD 

SQRT 

ALOG10 

EXP 

SIN 

COS 

TAN 

SIND 

COSD 

TAND 

AS IN 

ACOS 

ATAN 

ATAN2 

SINH 

COSH 

TANH 

DMOD 

DSIGN 

DSIN 

DLOG 

DSQRT 

DCOS 

DLOG10 

DAT AN 2 

DATAN 

DEXP 

CMPLX 

CSIN 

CCOS 

REAL 

AIMAG 

CONJG 

CEXP 

CLOG 

CABS 

CSQRT 



ARGUMENTS PASSED 



Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 
Address of 



X then Y 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X then Y 

x 

X 

X 

X then Y 

X then Y 

X 

X 

X 

X 

X 

X then Y 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 



For real and double precision routines, the result is returned via 
the FAC (3 or 6 words, respectively). For complex routines, the 
result is returned in #CAC (6 words) . 
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The TAN function from FORLIB is included here as an example of the 
requirements just discussed. The TAN function calls two external 
functions, has the standard calling sequence, and contains an error 
condition exit. 



/ 


TAN 




/ 


_ _ - 




/ 






/SUBROUTINE 


TAN(X) 




SECT 


TAN 




JA 


#TAN 




EXTERN 


#ARGER 


TANER, 


TRAP4 


#ARGER 




TEXT 


+ TAN + 


TANXR, 


SETX 


XRTAN 




SETB 


BPTAN 


BTAN, 


FNOP 








XRTAN, 


F 0.0 




TAN1, 


F 0.0 




TAN2, 


F 0.0 






ORG 


10+3+BPTAN 




FNOP 






JA 


TANXR 









TANRTN, 


JA 


• 




BASE 





#TAN, 


STARTO 






FLDA 


10*3 




FSTA 


TANRTN 




FLDA 







SETX 


XRTAN 




SETB 


BPTAN 




BASE 


BPTAN 




LDX 


1*1 




FSTA 


BPTAN 




FLDA 7. 


BPTAN, 1 




FSTA 


BPTAN 




STARTF 






FLDA% 


BPTAN 




JEQ 


TANRTN 




FSTA 


TAN1 




EXTERN 


COS 




JSR 


COS 




JA 


.+4 




JA 


TAN1 




JEQ 


TANER 




FSTA 


TAN2 




EXTERN 


SIN 




JSR 


SIN 




JA 


.+4 




JA 


TAN1 




FDIV 


TAN2 




JA 


TANRTN 



/SECTION NAME 

/JUMP AROUND BASE PAGE 



/EXIT TO ERROR MESSAGE HANDLER 

/FOR ERROR TRACE BACK 

/START OF FORMAL CALLING SEQUENCE 



/START OF BASE PAGE 



/INDEX REGISTERS 

/LOCATIONS 21-42 OCTAL AVAILABLE 

/FOR USER STORAGE 

/SET UP FOR A RETURN 
/TO THIS ROUTINE 

/JUMP TO XR + RP ASSIGNMENT 



/SAVE RETURN JUMP 

/GET NEXT LOCATION 

/IN CALLING PROGRAM 

/SET UP FOR TAN'S INDEX REGS 

/SET UP FOR TAN'S BP 



/GET ADDRESS OF X 



/GET X 

/IF RETURN NOW 

/SAVE FOR A SECOND 

/TAKE COSCX) 

/JUMP AROUND ARGUMENT LIST 

/REFERENCE TO PASSED ARGUMENT 

/COS=0. A NO-NO 

/SAVE IT 

/NOW TAKE SJN(X) 

/JUMP AROUND ARGUMENT LIST 

/REFERENCE TO ARGUMENT 

/DIV BY COSCX) 

/EXIT 



5-11 



The library routine ONQI illustrates many of the same conventions. 
This listing may also prove valuable as a guide to interfacing with 
the run-time system . 

FIELD1 ONQI /ROUTINE TO ADD A 

/HANDLER TO INTERRUPT SKIP CHAIN 
/PUT THIS CODE IN FIELD 1 







J MP 


SETINT 


/SET UP INT INITIALLY 




ISZ 


ONQI 


/BUMP ARGUMENT POINTER 




ISZ 


INTQ+1 


/BUMP INTERRUPT Q POINTER 




DCA 7. 


INTQ+1 


/STICK IOT ONTO INT Q 




TAD 


XSKP 


/FOLLOWED BY A SKIP 




ISZ 


INTQ+1 






DCA7. 


INTQ+1 


/ONTO INT Q 




ISZ 


ONQI 


/SKIP FIRST WORD OF ADDR 




ISZ 


INTQ+1 




ONQISW, 


TAD7. 


ONQI 


/GET INT HANDLER ADDRESS 




ISZ 


ONQI 






DCA% 


INTADR+1 


/ONTO ADDRESS STACK 




TAD 


INTADR+1 


/NOW MAKE JMS% 




AND 


L177 






TAD 


L4600 






DCA% 


INTQ+1 


/ONTO INT Q 




ISZ 


INTADR+1 






ISZ 


IQSIZE 


/ROOM FOR MORE? 




JMP% 


ONQI 


/YES 




TAD 


.-1 


/NO, CLOSE OUT THE SUBR 




DCA 


ONQI+1 






JMP% 


ONQI 




SETINT, 


TAD 


ONQISW 


/DO THIS PART ONLY ONCE 




DCA 


ONQI+1 






CDF 








TAD 


XSKP 


/FIX UP #INT 




DCA 7. 


XINT+1 


/PUT SKIP INST. FIRST 




ISZ 


XINT+1 






TAD 


INTQ+1 






DCA 7. 


XINT+1 


/GET ADDR. OF USER'S ROUTINE 




ISZ 


XINT+1 


/ADD TO INTERRUPT CALL 




TAD 


CIFCDF 


/GET FIELD INSTRUCTION 


/FIELD1 


SECTION 


INSURES ITS IN 


FIELD 1 




DCAZ 


XINT+1 




CIFCDF, 


CDF CIF 


10 






JMP 


ONQI+1 


/BACK TO ONQI 




EXTERN 


#INT 




XINT, 


ADDR 


#INT 


/POINTS TO INT RTN IN COMMON 


INTQ, 


A DDR 


IHANDL 


/MUST USE 15 BIT ADDRESS 


INTADR, 


ADDR 


IHADRS 


/ 


IQSIZE, 


-5 






XSKP, 


SKP 






L177, 


177 






L4600, 


4S00 
CDF CIF 








JMP7. 


IHANDL 




IHANDL, 











REPEAT 


16 






JMP 


IHANDL-2 




IHADRS, 


0;0;0;0 


;0 


/CAN SET UP 1-5 DEVICES 



-12 



ENTRY ONQB 
/ACCESS FROM OUTSIDE OF SECTION 
/ROUTINE TO SET UP AN IDLE JOB 



/USE "ENTRY" TO PERMIT 



ONQB, 









J MP 


SETBAK 




TAD% 


ONQB 


ONQBSW, 


ISZ 


ONQB 




DCA% 


BAKADR+1 




TAD 


BAKADR+1 




ISZ 


BAKADR+1 




AND 


L177 




TAD 


L4600 




ISZ 


BAKQ+1 




DCA7. 


BAKQ+1 




ISZ 


BQSIZE 




J MP 7. 


ONQB 




TAD 


.-1 




DCA 


ONQB+1 




JMP7. 


ONQB 


SETBAK, 


TAD 


0NQ3SW 




DCA 


ONQB+1 




CDF 






TAD 


XSKP 




DCA 7. 


XIDLE+1 




TAD 


BAKQ+1 




ISZ 


XIDLE+1 




DCA 7. 


XIDLE+1 




ISZ 


XIDLE+1 




TAD 


CIFCDF 




DCA 7. 


XIDLE+1 




CIF CDF 


10 




JMP 


ONQB+1 




EXTERN 


#IDLE 


XIDLE, 


ADDR 


#IDLE 


BAKQ, 


ADDR 


BAKRND 


BAKADR, 


ADDR 


BHADRS 


BQSIZE, 


-5 

CDF CIF 






J MP 7. 


BAKRND 


BAKRND, 









REPEAT 


6 




JMP 


BAKRND-2 


BHADRS, 


0;0;0;0 


;0 



/SETUP #IDLE 

/GET ADDRESS OF IDLE JOB 

/STORE ONTO BACKGROUND JOB Q 
/MAKE A JMS7. 



/MORE ROOM? 

/YES 

/NO, CLOSE THE DOOR 



/CLOSE OFF #IDLE INITIALIZATION 



/FIX UP #IDLE 

/ADD SKIP TO IDLE CALL 

/GET ADDRESS OF ROUTINE 



/GET FIELD INSTR. 



/EXTERNAL REFERENCE 



/1-5 JOBS 
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APPENDIX A 
RALF Assembler Permanent Symbol Table 



Mnemonic 


Code 


FPP Memory 


Reference Ii 


FADD 


1000 


FADDM 


5000 


FDIV 


3000 


FLDA 


0000 


FMUL 


4000 


FMULM 


7000 


FSTA 


6000 


FSUB 


2000 



IOT'S 

FPINT 

FPICL 

FPCOM 

FPHLT 

FPST 

FPRST 

FPIST 



6551 
6552 
6553 
6554 
6555 
6556 
6557 



8 -Mode Memory Reference Instructions 



AND 
TAD 
ISZ 
DCA 
JMS 
JMP 
IOT 
OPR 



0000 
1000 
2000 
3000 
4000 
5000 
6000 
7000 



FPP Special Format Instructions 



ADDX 

ALN 

ATX 

FCLA 

FEXIT 

FNEG 

FNOP 

FNORM 

FPAUSE 

JA 

JAC 

JAL 

JEQ 

JGE 

JGT 

JLE 

JLT 

JNE 

JSA 

JSR 

JXN 



0110 
0010 
0020 
0002 

0003 
0040 
0004 
0001 
1030 
0007 
1070 
1000 
1010 
1060 
1020 
1050 
1040 
1120 
1130 
2000 



SETB 
SETX 
STARTD 
ST ARTE 
STARTF 
TRAP 3 
TRAP 4 
TRAP 5 
TRAP 6 
TRAP 7 
XTA 

Pseudo-Operators 

ADDR 

BASE 

COMMON 

COMMZ 

DECIMAL 

DPCHK 

E 

END 

ENTRY 

EXTERN 

F 

FIELD1 

IFNDEF 

IFNEG 

IFNZRO 

IFPOS 

IFREF 

IF ZERO 

INDEX 

LISTOFF 

LISTON 

OCTAL 

ORG 

REPEAT 

SECT 

SECT8 

TEXT 

ZBLOCK 

IFF LAP 

IFRALF 

IFSW 

IFNSW 



1110 
1100 
0006 
0050 
0005 
3000 
4000 
5000 
6000 
7000 
0030 
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APPENDIX B 

ASSEMBLY INSTRUCTIONS 

The following sequence of commands may be used to assemble the OS/8 
FORTRAN IV system programs. It is assumed that all PAL language 
sources reside on DSK. In this example, DTAl is shown as the 
target device, however any other device could be used via the 
appropriate ASSIGN command. Note that PASS20.SV is produced by 
conditional assembly of PASS2.PA and that the "0" in PASS20 is an 
oh, not a zero. The initial dot and asterisk characters on every 
command line shown are printed by the monitor. All other characters 
(except carriage return, in some cases) are typed by the user. 
Type CTRL/Z after each of the three system pauses at point (T) , 
to continue assembly of PASS 20. Type ALT MODE to produce the "$" 
character. 

.ASSIGN DTAl DEV 

.R PAL8 

*F4.BN,LIST.LS<F4$ 

.R ABSLDR 

*F4$ 

.SAVE DEV F4=0; 12200$ 

.R PAL8 

*PASS2.BN,LIST.LS<PASS2$ 

.R ABSLDR 

* PASS 2$ 

.SAVE DEV PASS2=0;5000$ 

.R PAL8 

*PASS20.BN,LIST.LS<TTY: ,DSK:PASS2$0VERLY=1 

.R ABSLDR v ~ / 

.PASS20$ 

.SAVE DEV PASS2O=0;7605$ 

.R PAL8 

*PASS3 .BN,LIST.LS<PASS3$ 

,R ABSLDR 

*PASS3$ 

.SAVE DEV PASS3=0;400$ 

.R PAL8 

*RALF.BN,LIST.LS<RALF$ 

•R ABSLDR 

*RALF$ 

.SAVE DEV RALF=0;200$ 

.R PAL8 

*LOAD . BN, LIST . LS<L0AD$ 

.R ABSLDR 

*L0AD$ 

.SAVE DEV LOAD=0;200 

.R PAL8 

*FRTS.BN,LIST.LS<RTS,RTL$ 

.R ABSLDR 

*FRTS$ 

.SAVE DEV FRTS=0;200 

.R PAL8 

*LIBRA. BN , LIST . LS<LIBRA$ 

.R ABSLDR 

*LIBRA$ 

.SAVE DEV LIBRA=0;200 
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INDEX 



Argument passing, 2-10 
Arithmetic expression 
analyser, 1-2 

Background jobs, 4-1 

Binary buffer table, 3-8 

Binary section table, 3-10 

Block count sequence number, 4-14 

COMMON information block, 1-7 

Communication, 2-9 

COMMZ sections, 2-12 

Compilation, 1-1 

Compiler symbol table, 1-2 

Device handlers, 4-16 
Defice flag handlers, 4-2 
Dimension information block, 1-5 
DSRN table, 4-8 

Entry point, 2-1 

EQUIVALENCE information table, 

1-7 
ESD, 2-1, 2-5, 2-6 
ESD correspondence table, 3-8 
External symbol-, 2-1 
External symbol dictionary, 2-1, 

2-5, 2-6 

FIELD1 sections, 2-13 
Files, 4-13 
Formatted I/O, 4-13 
FRTS 

Calling sequence, 4-4 

Core maps, 4-6 

Entry points, 4-5 

Initialization, 4-14 

Page zero, 4-10 

Header block, 3-13 

Idle jobs, 4-1 

Indirect addressing, 2-7 

Interrupts, 

Servicing, 4-1, 4-15 

Spurious, 4-15 

Keyword, 1-2 

LIBRA, 5-2 
Library, 2-1 

Format, 5-1 
Line printer handler, 4-14 
Literals, 1-4, 1-5 
Loader, 3-1 

Core maps, 3-2 to 3-4 

Image file, 3-12 

Subroutines, 3-3 



Loader symbol table, 3-1, 3-7 

Magic number, 1-6 

Mixing code, 2-8 

Module, 2-1 

Module count table, 3-12 

Module descriptor table, 3-11 

Off-page references, 2-19 
Optimized code, 2-11 
Output codes , 1-7 
Overlay table, 3-10 

/P option, 4-21 

Page boundaries, 2-18 

PASS1, 1-1 

Output, 1-7 

Subroutines, 1-10 
PASS2, 1-12 

Error list, 1-14 

Skeleton tables, 1-14 

Symbol table, 1-14 

Subroutines, 1-15 
PASS3, 1-17 
PDP-8 code, 2-7 
Program loading, 3-9 
Program termination, 4-2 
Pseudo-ops, 2-7 

RALF, 2-1 

Expressions, 2-4 

Symbol table, 2-5 
RALF output file, 2-6 

Section, 2-1 
Section types, 2-11 
Statement number, 1-4 
Subroutine calls, 2-9 
Subroutine return sequence, 2-10 
Symbol table, 

Compiler, 1-14 

Loader, 3-7 

RALF, 2-5 

Termination, program, 4-22 

Text, 2-1 

TRAP3 and TRAP4, 2-8 

Variable type word, 1-3 

8-mode sections, 2-14 
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